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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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