Select Code to Download

#!/usr/bin/perl                                                       
+                                                                     
+                  

...
@hex = (unpack('H*', $test));

print "Hex:\n@hex\n";

#!/usr/bin/perl                                                       
+                                                                     
+                  

...

print "Hex:\n@hex\n";