Select Code to Download

$VAR1 = bless( {
                 'default_charset' => 'UTF-8',
                 'enctype' => 'application/x-www-form-urlencoded',
...
                                      }, 'HTML::Form::TextInput' )
                             ]
               }, 'HTML::Form' );

#!/usr/bin/perl -w
use strict;
...

my $html_raw = $mech -> content();
print "\n$html_raw\n";