#!/usr/local/bin/perl
use strict;
use Carp;
use warnings;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );

my $url = 'https://secure.secret.com/login/login.cfm?someParam=foo';

$mech->get( $url );

print $mech->uri() . "\nStep 1 done. \n";

$mech->submit_form(
     form_number => 0, 
     fields      => {
        login    => 'xxxxx',
        password    => 'xxxx'
    }
);

print $mech->uri() . "\n\nDone.";

##</code><code>##

sub remove_content_headers
{
    my $self = shift;
    unless (defined(wantarray)) {
	# fast branch that does not create return object
	delete @$self{grep $entity_header{$_} || /^content-/, keys %$self};
	return;
    }

    my $c = ref($self)->new;
    for my $f (grep $entity_header{$_} || /^content-/, keys %$self) {
	$c->{$f} = delete $self->{$f};
    }
    $c;
}