Help for this page

Select Code to Download


  1. or download this
    open FILE, "emails.txt" or die "Error Opening: Cannot open file!";
@emails = <FILE>;
close FILE;
$email = $emails[int(rand($#emails + 1))];
  2. or download this
    my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();
...
$agent->get('http://www.somewebsite.com');
$agent->form_number(2);
$agent->current_form->value("email", "$email");