my @data = (3, 1, 255, 253);				
my $packeddata = pack("C*", @data);

print DEV $packeddata;

my $output = <DEV>;
#print "Output: $output ";