#!/usr/bin/perl

print "\tPick a number\n";
$number = <>;

if($number %2 == 1){   
    print "That was a odd number\n"}
else {
    print "That was a even number\n"}

exit