use strict;
use warnings;
sub cat_all {
    my $fh = shift;
    print while <$fh>;
}

cat_all \*ARGV;