Detect What File is on STDIN

    my $fn = '';
    while(<>) {
        if ($fn ne $ARGV) {
            $fn = $ARGV;
            print "$ARGV\n  ====\n";
        }
    }