ファイル名と行番号を付加してテキストを出力。grepと組み合わせる事を想定。

morecat.pl

use 5.12.1;
use common::sense;
use Path::Class qw(file);
use File::Spec;
use File::Basename;

my $dir = File::Spec->rel2abs(dirname(__FILE__));

my @files;
if(@ARGV){
    @files = @ARGV;
}else{
    say("Usage: $0 filepath");
    exit;
}

foreach my $file (@files){
    my $fh = file($dir, $file)->openr();
    my $line = 1;

    say '-' x 10 . $file . ' start ' . '-' x 10;
    printf("%s:%04d: %s", $file, $line++, $_) while(<$fh>);
    say '-' x 10 . $file . '- end -' . '-' x 10;
}

exit;
__END__