Select Code to Download

system "echo \"alias > aliases.tmp\" > get_aliases.ksh";
chmod (0777, 'get_aliases.ksh');
...
foreach my $line (<ALIASES>){
  print "alias line $line\n";
}