#!/usr/bin/perl

use strict;

use Win32::IE::Mechanize;

my $ie = Win32::IE::Mechanize->new(visible => 1);

my $url = "https://www.securesite.com";

print "Requesting '$url'... ";
my $ok = $ie->get($url);
$ok ? print "ok\n" : print "failed\n" && exit 1;

print "Filling in login form... \n";
$ie->form_number(1);
print "Entering username... \n";
$ie->field('username', 'username');
print "Entering password... \n";
$ie->field('password', 'password');
print "ok\n";

print "Submitting login form... ";
$ok = $ie->click('_submit');
$ok ? print "ok\n" : print "failed\n" && exit 1;
exit;
print "Looking for link... \n";
my $link = $ie->find_link(n => 1);
if (defined $link) {
        print "Found link... \n";
        print "\tText: ".$link->text."\n";
        print "\tURL:  ".$link->url."\n";
        print "ok\n"
} else {
        print "failed\n";
        die;
}
exit;

##</code><code>##

=head2 $input->click

Calls the C<click()> method on the actual object. This may not work.

=cut

sub click { ${ $_[0] }->click }