Select Code to Download

my $Magic = shift;
my $itoa64 = shift;
$Magic = q/$1$/;            # Magic string
$itoa64 = "./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstu
+vwxyz";

 $Magic = shift @ARGV;