#!/usr/bin/perl
#$Id: set_voltage,v 1.4 2011/11/09 13:54:07 sofc Exp $
use RFC::Rig;
use strict;
use warnings;
my $rig = RFC::Rig->new(shift);
$rig->check_run;
my $volt = shift;
my $device = shift;
if ($device)
{
    print $rig->voltage($volt,$device);
}
else
{
    print $rig->voltage($volt);
}
print "\n";
