I must apologize, the problem wasn't with the hex, but on the serial side. Thank you for the help, at least you all cleared up the my confusion on the hex side.

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