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;
}