Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

early morning vent

by silent11 (Vicar)
on May 17, 2002 at 10:01 UTC ( #167256=poem: print w/replies, xml ) Need Help??

#!/usr/bin/perl use Merger::Success qw(Fiorina Capellas); require employment; print "Who's your daddy?"; my $employer = <STDIN>; if ( $employer =~ /compaq/i ) { my $life = "ok"; sleep(8/24); } else { my ($life, $family_time) = 0; my $work_load++ and my $SLA = 24*7; sleep(0); our $layoffs > 10000; open(WINDOW,"and.jump") unless my $job = new employment; }
-Silent11