print "Enter a positive whole number\n"; $number=<STDIN>;
if ($number>25)
{
print "Try a smaller number.\n"; }
elsif ($number%2==0)
{
print "The number $number is even and half the number is \n", $number/2; }
else
{
print "The number $number is odd and the cube is \n", $number**3; }
cHJpbnQgIkVudGVyIGEgcG9zaXRpdmUgd2hvbGUgbnVtYmVyXG4iOwokbnVtYmVyPTxTVERJTj47CmlmICgkbnVtYmVyPjI1KQp7CglwcmludCAiVHJ5IGEgc21hbGxlciBudW1iZXIuXG4iOwp9CmVsc2lmICgkbnVtYmVyJTI9PTApCnsKCXByaW50ICJUaGUgbnVtYmVyICRudW1iZXIgaXMgZXZlbiBhbmQgaGFsZiB0aGUgbnVtYmVyIGlzIFxuIiwgJG51bWJlci8yOwp9CmVsc2UKewoJcHJpbnQgIlRoZSBudW1iZXIgJG51bWJlciBpcyBvZGQgYW5kIHRoZSBjdWJlIGlzIFxuIiwgJG51bWJlcioqMzsKfQ==