$SIG{__WARN__} = sub {
    print STDOUT "Content-Type: text/plain\n\n";
    print STDOUT @_, "\n";
    exit 0;
};