use strict;
use LWP::UserAgent;


my $from_addr  = 'what goes here?';
my $agent_name = 'scriptname.pl';   # name of script??


my $timeout    = 5;   

my $ua = LWP::UserAgent->new;
$ua->agent("$agent_name " . $ua->agent);
$ua->from($from_addr);
$ua->timeout($timeout);