Barista

Coding for fun not profit. #!/d/perl/bin/perl.exe # (void*) # If I ever own a cafe it will be called # 0xBADDECAF or just 0xCAFE, but what else could it be? while (<>) { my @words = split; foreach my $word

school

[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]

insomnia

[tate]$ cat sleep try { sleep; } catch { do { turn; } until(ready); } finally { awake; } [tate]$ ./sleep bash: ./sleep: Permission denied [tate]$ perl sleep Segmentation fault [tate]$