in reply to Re: STDIN usage in interactive debug
in thread STDIN usage in interactive debug

Or you could even do it all in one line (without needing the close). . . 

  DB<1> @lines = do { open( my $fh, '<', 'FILE' ); <$fh> }

[download]

The cake is a lie.
The cake is a lie.
The cake is a lie.

In Section Seekers of Perl Wisdom