#!/usr/bin/perl

print "How many cookies do you want? Enter number: ";
my($cookies) = <STDIN>;
chomp($cookies);

print "You wanted only $cookies?\n";