Select Code to Download

#!/usr/bin/perl --
use strict;
...
 else {
     die $response->status_line;
 }

$mech->set_fields(
            'ctl00$ContentPlaceHolder1$ctl00$rcbusertype_Input' => "Su
+bscriber",
            'ctl00$ContentPlaceHolder1$ctl00$txtUserName'    => $un,
...
my $response = $mech->click_button( name => 'ctl00$ContentPlaceHolder1
+$ctl00$LoginButton',
                                   x=>26,
                                   y=>10);