my $sfreq=<STDIN>;
$sfreq=~ s/\.//g;
$port->write(pack("H*",$sfreq."01"));