Select Code to Download

#!/usr/bin/perl
use strict;
...
wait until $mech->success();

print $mech->content;

 <form action="anagram.cgi" name="inputform" onSubmit="return valid_in
+put(anagram)">
<table border="0" bgcolor="#DDEEFF" bordercolor="#DDEEFF" cellpadding=
+"8" cellspacing="0">
<tr>
   <td>Find anagrams for <input name="anagram" size="16" type="text"><
+/td>
   <td><input value="Get anagrams" type="submit"><input name="t" value
+="1000" type="hidden"><input name="a" value="n" type="hidden"></td>
</tr>