ibanix posted part of the song "let it snow" but he left it off to the other monks to finish the song so I have taken up his challenge. Hopefully this program works I believe it will. I actually got a Frank S CD for christmas. This is my first bit of perl poetry so be gentle

use warnings;
use strict;

my $snow_storm=1;

unless(snow_storm==2){
print "doesn't show signs of stopping";
}

print "brought some corn for poopity popin'";

open(FILE, ">popcorn.txt");     

print "how many kernels do you want popped";
my $kernals=<STDIN>;
my $Min_Kernals=0;
Unless($MIN_Kernals==$Kernals){                    
   print FILE "poopity pop";
   $MIN_Kernals+=1;          
}
close FILE;              

my $lights="low";

while ($place_to_go==null) {  
  print "let it snow\n"x3;
}
[download]