#!/usr/bin/perl

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

##</code><code>##

#!/usr/bin/perl

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