Code: Perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
$ua->proxy(['http','ftp'] => 'http://proxy.mycompany.com:1080');