The Walrus

[dooberwah]

Based on "The Walrus and the Carpenter" by Lewis Carroll.

This is my first attempt at poetry in Perl. It's not supposed to run and would probobly return a ton of errors if you tried running it.

print WALRUS, "the" . time() . "has come";    
$talk = $many_things;    
$clothing{'foot'} && $ships && $wax{'sealing'};    
$cabbages && $monarch{'king'};    
&& ?$sea == $boiling hot;    
&& ?$pigs & $wings;

[premchai21]

use strict;
my (%things, @many, $sea, %pigs);
sub talk { }

<WALRUS> eq "the $(time) has come";
talk(@things{@many});
@things{@many} = 'shoes' & 'ships' & 'sealing wax';
@things{@many} = 'cabbages' & 'kings'
    & ($sea->isa('Boiling::Hot') ? 0 : 0)
    & (exists $pigs{wings} ? 0 : 0);