Select Code to Download

#!/usr/bin/perl
...
$mech->submit_form();
my $page = $mech->content();
print $page;

<td width="99%">
    <input name="ctl00$cntPlaceHolder$UsernameTextBox"type="text" valu
+e="admin" maxlength="60" id="ctl00_cntPlaceHolder_UsernameTextBox" cl
+ass="textField" /><span class="MandatoryText">*</span>
...
    <input name="ctl00$cntPlaceHolder$PasswordTextBox" type="password"
+ id="ctl00_cntPlaceHolder_PasswordTextBox" class="textField" /><span 
+class="MandatoryText">*</span>
</td>