#!/usr/bin/perl

$| = 1;

$SIG{PIPE} = sub { die "Pipe: @_\n"; };

use strict;
use warnings;
use CGI ();

my $q = CGI->new();

print $q->header();
print "output #1\n";
warn "Debug: RUNNING";
sleep 20;

print "output #2\n";

END {
    open my $fh, '>>', 'debug.txt';
    print $fh "Debug: END block.\n";
    close $fh;
}