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
perl poems
A collection of 3 posts
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]$