#!/usr/bin/perl

use strict; 
use warnings; 

for my $file(@ARGV) {
    open my $fh, "<", "$file" or die "Cannot open file: $!";
    while (my $line = <$fh>) {
    print "$file: $line";
    }
}