Select Code to Download

#!/usr/bin/perl
#
...
                print "$_ \n";
          }
exit;

for $rec (@PSarray)
    {
...
    print "$rec\n";
    }
exit;