Select Code to Download

# This is cat.pl
$|=1;
...
  print;
}
chr(0x1a) if $^O eq 'MSWin32';

# This is ls.pl
use strict;
...
my @result=<OUTPUT>;
close OUTPUT;
print "RESULT:\n@result\n";

perl ls.pl