Select Code to Download

package MyWWWMechanize;
use strict;
...
my $html = $mechanize->content;
print "$html  \n";