[tate]$ cat school.pl
while($time)
{
        study until $summer;
        goto sleep unless $school;
        my $time_here = undef and exists $the{exit};

        do {
        	bless $all
        	, accept $all
        	, connect $all
        	, join $all
        } until last BREATH;

        while(left) {
                sin;
                bless@ed;
        }
}
return ??;
[tate]$ perl -c school.pl
school.pl syntax OK