#!/usr/bin/perl
use warnings;
use strict;
my $weather = "good";
print "How hot is it, in degrees? ";
my $temperature = ;
print "And how many emails left to reply to? ";
my $work = ;
chomp($weather, $temperature);
if ($weather eq "snowing") {
print "OK, let's go!\n";
} elsif ($weather eq "raining") {
print "No way, sorry, I'm staying in.\n";
} elsif ($temperature < 18) {
print "Too cold for me!\n";
} elsif ($work > 30) {
print "Sorry – just too busy.\n";
} else {
print "Well, why not?\n";
}