Select Code to Download

# slurp the email from STDIN
my( $raw );
{ local $/ = undef; local *FILE; open FILE, "-"; $raw = <FILE>; close 
+FILE }

# slurp the email from STDIN
my $raw; { local $/; $raw = <STDIN>; }

my( $raw_iohandle ) = new IO::Scalar( \$raw );

my $raw_iohandle = new IO::Scalar( \$raw );

open(my $raw_iohandle, '<', \$raw );