BEGIN { $^W = 1; }
use CGI (':standard');
use strict 'refs';
my @a;
my $i = 0;
eval {
    do {
        print "\nTake ", $i++, ",\n", header(), "\n";
        print "\nTake ", $i++, ",\n", header(@a, "\n");
        print "\nTake ", $i++, ",\n", header(@a), "\n";
        print "\nTake ", $i++, ",\n", header(), "\n"
    }
};
if ($@) {
    print "I died: $@\n";
}