Select Code to Download

# a.pl
 use strict;
...
        }
        print "\n";
}

perl a.pl > xyz
ls -al xyz
gzip xyz
ls -al xyz.gz