open FILE, "emails.txt" or die "Error Opening: Cannot open file!";
@emails = <FILE>;
close FILE;
$email = $emails[int(rand($#emails + 1))];

##</code><code>##

my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();
$agent->env_proxy();
$agent->get('http://www.somewebsite.com');
$agent->form_number(2);
$agent->current_form->value("email", "$email");