use File::Slurp;
use Test::More ...;
...
system( 'perl zork.pl < testfile.1 >output.1' );
my $out = Slurp( 'output.1' );
my $expected = Slurp( 'expected.1' );

ok( $out eq $expected );