#!/usr/bin/perl

use strict;
use warnings;

my ($diff, $wood, $food);

my $maxRNG = 6;
my $RNG = rand($maxRNG);

print "May I have your name please?\n";
chomp(my $name = <>);
print "Thank you $name.\n";

print "Please enter a difficulty level: easy, or hard.\n";
chomp($diff = <>);
print "you chose $diff.\n";

if ($diff eq "easy"){
$wood = 120;
}
elsif ($diff eq "hard"){
$wood = 75;
}

if ($diff eq "easy"){
$food = 50;
}
elsif ($diff eq "hard"){
$food = 20;
}

print "You have crash landed on a strange alien planet and must find a way to get back to earth.\n";

print "\n";
print "You have $wood wood and $food food.\n";
print "You can:\n";
if($wood >= 10){
    print "BUILD a HUT with 10 wood\n";
}