my ($contest, $type) = $mech2->eval_in_page( 'Diary' ) or warn "$!";
print Dumper \$contest;
print Dumper \$type;