You have to use a filehandle to read data in from a file, but for a simple program you can get away with using a <> to load data from the files listed in @ARGV (or STDIN if no files are given) with perl automatically opening them as needed.

while (<>) {
  print (split /\s+/)[2], "\n";
}
[download]

--
integral, resident of freenode's #perl