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