Select Code to Download

use warnings; use strict;

...
  $out .= sprintf $format , $_ , $p{ $_ }
}
print $out;

use warnings; use strict;

...
  $out .= sprintf $format , $_ , $p{ $_ }
}
print $out;