Select Code to Download

#!/bin/perl -w
$names++, shift if $ARGV[0] eq "-l";
...
                print;
        }
}

1.  grep pattern /tmp/file
2.  cat /tmp/file | grep pattern