Select Code to Download

#!/usr/bin/perl -w
use strict;
...
printf ("%02x " x length($msg) . "\n", unpack ("C*", $msg));
__END__
31 32 10 33