my $ie = Win32::IE::Mechanize->new ...
my $agent = $ie->agent;