open $fh, '<', $alt or die $!;
my $before = do { local $/; <$fh> };
open $fh, '<', $alt or die $!;
my $before = do { local $/; <$fh> };
open $fh, '<', $alt or die $!;
my $after = do { local $/; <$fh> };
ok(index($after, $before) > 0,
open $fh, '<', $alt or die $!;
my $after = do { local $/; <$fh> };
ok(index($after, $before) > 0,