#!perl.exe
BEGIN
{
    use strict;
    use warnings;
};

local $| = 0;
print "Content-type: text/html\n";
print "MyCGI: Test 5\n\n";
print "5; path_info: $ENV{PATH_INFO}; query_string: $ENV{QUERY_STRING};";