my @filesnames = @ARGV;
for my $input_file ( @filesnames )
{
    eof();
    while ( ! eof )
    {
        print scalar <>;
    }
    print "=========SEPARATOR: Processing $input_file =========\n";
}