Select Code to Download

$ perl -e'open my $fh, "-|", "ls", "-l", glob("READ*") or die $!; prin
+t <$fh>'
-rw-rw-r--    1 Zaxo     Zaxo         1510 Jan 15  1999 README
-rw-rw-r--    1 Zaxo     Zaxo          251 Jan 15  1999 README_FIRST
-rw-rw-r--    1 Zaxo     Zaxo          245 Jan 15  1999 README_FIRST.~
+1~
$

$ perl -e'open my $fh, "-|", "ls", "-l", "READ*" or die $!; print <$fh
+>'
ls: READ*: No such file or directory
$