Select Code to Download

#!/usr/bin/perl
use strict;
...
print $ua->title;
print "=================\n";;
$_=<STDIN>;

"click_button: No form has been selected at test button.pl line 12."