#!/usr/local/perl5/bin/perl

my @x;
sub call { push @x, [caller(1)] }
BEGIN { call() }
CHECK { call() }
INIT { call() }
END { print "@$_\n" for @x; }
END { call() }