in reply to LWP and POST bareword

Either quote the method name: 
$req = HTTP::Request->new('POST', $url, $header);

[download]

or let the fat comma do it for you: 

$req = HTTP::Request->new(POST => $url, $header);

[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Seekers of Perl Wisdom