gistfile1.PL

use Web::Simple 'Hacks';
{
    package Hacks;
    use IO::All;
    
    dispatch
    {
        sub (GET + /verify/Robokill/*/*/)
        {
            my ($self, $email, $salt) = @_;
            return [ 200, [ 'Content-type', 'text/html' ], [ "Valid $salt" ] ];
        },
        sub (.swf)
        {
            return [ 200, [ 'Content-type', 'application/x-shockwave-flash' ], [ io('robokill.swf')->slurp ]];
        }
    };
}

Hacks->run_if_script();