Select Code to Download

use strict;
my $A="a";
...
}
print"$A\n";
print"$Z\n";