foreach $file (@ARGV) { die $! unless open(VAGINA, $file); print readline(VAGINA) until eof(VAGINA) and close(VAGINA); }