#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use WWW::Mechanize;
use HTTP::Cookies;

my $url = 'https://sso.cisco.com/autho/forms/CDClogin.html';
my $mech = WWW::Mechanize->new(
                                cookie_jar => HTTP::Cookies->new( file => 'cookies.txt')
                                );
$mech->get($url);
$mech->form_name('login_form');
$mech->field(userInput => 'user');
$mech->field(passwordInput => 'password');
$mech->click();

my $content = $mech->content();
print Dumper($content);