#!/usr/bin/perl

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