cat2

#!/usr/bin/perl
use strict;
use warnings;

for my $file_name ( @ARGV ){

    open my $fh, '<', $file_name;


    print "\n$file_name\n\n";
    for my $text ( <$fh> ){
        print $text;
    }
    print "\n";
    close $fh;
}