#!/sw/perl5/1.1/bin/perl

use lib ("/fbcapps/buc/perl_lib");
use strict;

my $filename = "/home/smarter/alltables";

local $/ = "";

while (<DATA>) {
    chomp;
    ++$filename;
    print "**** Open file $filename here\n";
    print "$_\n";
    print "**** Close file $filename here\n";
}