The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
rand(); # this initializes the random seed

sub {
    return [ 200, ["Content-Type", "text/plain"], [ rand(100) ] ];
};