Select Code to Download

#!/usr/bin/perl -w  

use strict;
...
print "[INFO] All Finished!\n"; #Alerts The User
my $e = $mech->content(format => 'text');
print $e;

<div id="addCommentContainer">
    <p>Add a Torrent</p>
    <form id="addCommentForm" method="post" action="">
...
        </div>
    </form>
</div>