Select Code to Download

my $cmd = "ls -? 2>&1";
$output = qx/$cmd/;

print "-" x 50, "\n", $output, "\n", "-" x 50, "\n"