1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/env perl use strict; use warnings; my $number = <STDIN>; chomp $number; if ($number % 2 == 0){ print "even\n"; }else{ print "odd\n"; }