#!/usr/bin/perl

foreach my $f (<*>)
{
  open(F,"< $f");
  <F>;
  close($f);
}