BEGIN {
print "BEGIN\n";
}
UNITCHECK {
print "UNITCHECK\n";
}
CHECK {
print "CHECK\n";
}
INIT {
print "INIT\n";
}
print "MAIN\n";
####
open("t.pl", O_RDONLY) = 3
...
read(3, "BEGIN {\n print \"BEGIN\\n\";\n}\nU"..., 8192) = 146
write(1, "BEGIN\n", 6) = 6
read(3, "", 8192) = 0
close(3) = 0
write(1, "UNITCHECK\n", 10) = 10
write(1, "CHECK\n", 6) = 6
write(1, "INIT\n", 5) = 5
write(1, "MAIN\n", 5) = 5
##
##
__DATA__
whatever
##
##
open("t.pl", O_RDONLY) = 3
...
read(3, "BEGIN {\n print \"BEGIN\\n\";\n}\nU"..., 8192) = 165
write(1, "BEGIN\n", 6) = 6
fcntl(3, F_SETFD, FD_CLOEXEC) = 0
write(1, "UNITCHECK\n", 10) = 10
write(1, "CHECK\n", 6) = 6
write(1, "INIT\n", 5) = 5
write(1, "MAIN\n", 5) = 5
...
close(3) = 0
exit_group(0) = ?