use CGI::SpeedyCGI;

print "1\n";
if ($ARGV[0]) {
    CGI::SpeedyCGI->register_cleanup(sub {print "3\n"});
    CGI::SpeedyCGI->register_cleanup(sub {print "4\n"});
}
print "2\n";