Name: Anonymous 2007-07-14 8:37 ID:DWRQwZU8
discuss
foreach $file (@ARGV) {
die $! unless open(VAGINA, $file);
print readline(VAGINA) until eof(VAGINA);
close(VAGINA);
}
foreach $file (@ARGV) {
die $! unless open(VAGINA, $file);
print readline(VAGINA) until eof(VAGINA) and close(VAGINA);
}