how to prevent new line added in HERE document

Select or download this

#!/usr/bin/perl -w
use strict;
...
print foo($code);

print "why blank line above?\n";

Select or download this

perl t2.pl 

...
line2

why blank line above?

Select or download this

perl>perl -v

This is perl 5, version 18, subversion 2 (v5.18.2) built for x86_64-li
+nux-gnu-thread-multi
(with 41 registered patches, see perl -V for more detail)

Select Code to Download