Help for this page
#!/usr/bin/perl use strict; ... print unless $exclude{$_}; } close SOURCE;
[me@host scratch]$ cat > a asdf ... asd d [me@host scratch]$