package Tempmod;
use strict;
sub cleanup
{
    print "\nStopping\n";
    exit;
}

BEGIN
{
    print "\nBEGIN\n";

}

sub INIT
{
    print "\nINIT\n";
}

END
{
    goto &cleanup;
}

sub CHECK
{
    goto &cleanup;
}

1;