knoppix@Microknoppix:~$ perl -Mstrict -we '
> open my $fh, q{<}, \ <<EOD or die qq{open: < HEREDOC: $!\n};
> line 1
> line 2
> line 3
> EOD
> 
> while ( <$fh> )
> {
>     $_ = ucfirst;
>     print;
> }
> 
> close $fh or die $!;'
Line 1
Line 2
Line 3
knoppix@Microknoppix:~$