gistfile1.PL

use Web::Simple 'Hacks';
{
    package Hacks;
    use IO::All;
    use Digest::MD5('md5_hex');
    
    dispatch
    {
        sub (GET + /verify/Robokill/*/*/)
        {
            my ($self, $email, $salt) = @_;
            return [ 200, [ 'Content-type', 'text/html' ], [ md5_hex($email, $salt); ] ];
        }
    };
}

Hasks->run_if_script();