#!/usr/bin/perl 
 
    use strict; 
    use WWW::Mechanize; 
 
    my $login    = "login_name"; 
    my $password = "password"; 
 
    my $url = "http://www.gmail.com"; 
    my $mech  = WWW::Mechanize->new(); 
    $mech->get($url); 
    $mech->submit_form( 
        form_number => 1, 
        fields      => { User => $login }, 
        fields      => { Password => $password }, 
    ); 
    die unless ($mech->success);

 
#!/usr/bin/perl 
 
    # turn on perl's safety features 
    use strict; 
    use warnings; 
 
    # work out the name of the module we're looking for 
    my $module_name = $ARGV[0] 
      or die "Must specify module name on command line"; 
 
    # create a new browser 
    use WWW::Mechanize; 
    my $browser = WWW::Mechanize->new(); 
 
    # tell it to get the main page 
    $browser->get("http://search.cpan.org/"); 
 
    # okay, fill in the box with the name of the 
    # module we want to look up 
    $browser->form_number(1); 
    $browser->field("query", $module_name); 
    $browser->click(); 
 
    # click on the link that matches the module name 
    $browser->follow_link( text_regex => $module_name ); 
 
    my $url = $browser->uri; 
 
    # launch a browser... 
    system('Firefox', $url); 
 
    exit(0);

$browser->follow_link( text_regex => $module_name

$browser->follow_link( text_regex => qr{$module_name} );