Name: Anonymous 2007-07-14 8:37 ID:DWRQwZU8
discuss
foreach $file (@ARGV) {
open(VAGINA, $file) || die("$file: $!\n");
while (!eof(VAGINA)) {
$_ = readline(VAGINA);
# manipulate $_
}
close(VAGINA);
}