“Priest of BOB” posted this to a different topic but it belongs here:
open FILENAME, $filename = 'short_perl.pl' or die 'foo';
print (@bob = );
TMTOWTDI.
if you’re worried about an exception while reading, then throw an eval around the print.
Cheers.