Select Code to Download

#!/usr/bin/perl -w

...
my $x=`ls a.a 2>&1`;
print "dollar x is $x\n";
print "***************\n";