in reply to Re^2: Please explain: print <<"END_USAGE";
in thread Please explain: print <<"END_USAGE";

Cause it has nothing to do with print. 
my ($var1, $var2) = (<<'EOI', <<'EOI');
...
EOI
...
EOI

[download]

In Section Seekers of Perl Wisdom