#!/usr/bin/perl -w

use strict;

use CGI qw/:standard/;

my @a;
my $i = 0;

eval {
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";
}