sub usage {			
    die "\nUsage: subset.pl file word\n
where a new file will be written each time word is encountered.
\nResults are written to /tmp/subset.*\n\n";
}
(&usage) unless @ARGV;