open my $f => shift or die "open: $!";
open my $s => shift or die "open: $!";

while (<$f>) {
    if (eof $s || <$s> ne $_) {print "They differ\n"; exit}
}
unless (eof $s) {print "They differ\n"; exit}