use strict;
use warnings;

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

$ie->get("http://www.valuationpartners.com/vendors");

$ie->form_name("ctl00");
$ie->set_fields(

    txtUserID => 'user_id',
    txtPassword => 'password',
);

my $btn_name = "btnLogin";

$ie->click( $btn_name );

my $html = $ie->content;

save_html($html);

sub save_html {
    
    my ($html) = @_;
    
    open my $out_fh, ">", "Order.htm" or die $!;
    binmode $out_fh, ":utf8";
    
    print $out_fh $html;
    
    close $out_fh;
}