Select Code to Download

use strict;

...
EOF
    close $fh;
}

use strict;

...
EOF
    close $fh;
}

D:\Development\Perl\HereDocTest>hdt2.pl<br>
Scalar found where operator expected at D:\Development\Perl\HereDocTes
+t\hdt2.pl line 10, near "<title>$title"<br>
...
        (Missing semicolon on previous line?)<br>
syntax error at D:\Development\Perl\HereDocTest\hdt2.pl line 9, near "
+head>"<br>
Search pattern not terminated at D:\Development\Perl\HereDocTest\hdt2.
+pl line 15<br>

use strict;

...
EOF
    close $fh;
}

    print ($args->{fh}) <<EOF;
    print +$args->{fh} <<EOF;
    print +($args->{fh}) <<EOF;