binmode(STDOUT);
for my $file ( @ARGV ) {
    open(FILE,"<$file") or die "Can't read $file: $!\n";
    binmode(FILE);
    print "$file: ",-s $file,$/;
    while(<FILE>) {
        print;
    }
}