http://www.perlmonks.org?node_id=11137951


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> }

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