Select Code to Download

#!/usr/bin/perl
use warnings;
...
$h->header('u' => 'user');
$h->header('p' => 'password');
print $h->as_string, "\n";