use warnings;
use strict;

my @aliases = qx(ksh -c alias);

print "@aliases\n";

##</code><code>##

my @aliases = qx(ksh -c '. ~/.kshrc;alias');