You are viewing mmol_6453

 
 
15 February 2009 @ 03:50 pm
Spam  
#!/usr/bin/perl
use Time::HiRes qw(usleep);
use strict;
my $spam = 1;
my $out;
 
my @suffixes = ("",
", bacon",
", eggs",
", bacon, eggs");
 
$|++;
 
print "Menu:\n";
print "Spam.\n";
 
while(1)
{
usleep(750000);
foreach my $suffix (@suffixes)
{
print "Spam";
for(my $spamcount = 0; $spamcount < ($spam - 1); ++$spamcount)
{
usleep(250000);
print ", spam";
}
 
usleep(250000);
print $suffix;
 
usleep(500000);
print " and spam\n";
}
 
++$spam;
}