#!/usr/bin/perl

=head1 NAME d2-reboot

d2-reboot - reboot a D2 satellite controller

=head1 SYNOPSIS

 d2-reboot

=head1 DESCRIPTION

Reboots a D2 mobilsat controller.

=cut

use SatUtils::D2;
use strict;
use warnings;

my $s=SatUtils::D2->new;
$s->sendcommand("reboot");

=head1 AUTHOR

Joey Hess <joey@kitenet.net>

=cut
