school

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
[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 ??;
1
2
[tate]$ perl -c school.pl
school.pl syntax OK