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