use strict;
use Benchmark;

open NUL, "> nul" or die "Cannot open nul: $!";

for ( 1 .. 4 ) {
    test_em();
}

sub test_em  {
    timethese (5000000, {
        'print' =>
            'print NUL "This is one line.\n";
            print NUL "This is another line\n";
            print NUL "Still printing\n";
            print NUL "And printing and printing\n";
            print NUL "Like the stupid Battery Bunny...\n";',

           'here docs' =>
               'print NUL <<END_HERE;
This is one line.
This is another line
Still printing
And printing and printing
Like the stupid Battery Bunny...
END_HERE
            '
    } );
}