my $MyCurrFile = '';

while ( <> ) {
    if ( $ARGV ne  $MyCurrFile ) {
        print "Filename: " . $ARGV . "\n";
        $MyCurrFile = $ARGV
     }
 }