#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell

=head1 NAME dw6000-reboot

dw6000-getvalue - reboot a DW6000 satellite modem

=head1 SYNOPSIS

 dw6000-reboot

=head1 DESCRIPTION

Reboots the DW6000 satellite modem.

=cut

use SatUtils::DW6000;
use strict;
use warnings;

my $s=SatUtils::DW6000->new;
$s->reboot;

=head1 AUTHOR

Joey Hess <joey@kitenet.net>

=cut
