my $usb = '/dev/ttyUSB-1-4!
my $command = '0015070400a4' ;
&send ($command);

sub send
{
my $raw = shift;
$raw =~ s/([0-9a-f]{2})/chr hex $1/gie;
system ("echo ".$raw." | socat -t1 - ".$usb.",b2400");
}