Select Code to Download

    package My::Module;
    # Keep this next line at the very top, please:
...
    sub msg {
        die "HTTP/1.0 $_[0] $msgs{$_[0]}\n";
    }

    package My::OtherModule;
    [...]
...
        msg(400)   if ! $valid;
        [....]
    }