#!/sw/perl5/1.1/bin/perl
use strict;
#use warnings;

my $filename = "/home/smarter/tables/MyFileName0000";

local $/ = "\n\n";
my $temp_line;
my $filehandle;

#open (my $filehandle, '<', $filename ) ||
open ( INFILE, $filename ) ||
    ( die "Cant read $filename: $!");

#while ( <$filehandle> ) {
while ( $temp_line = <INFILE> ) {
    chomp;
    ++$filename;
    print "**** Open file $filename here\n";
    print "$_\n";
    print "**** Close file $filename here\n";
}
#close $filehandle or die "Fail on close '$filename': $!";
close(INFILE);