#! /usr/bin/perl -w

use strict;


(my $foo = shift) ||= 0;

($foo == 1) ? print "It's one\n" :
($foo == 2) ? print "It's two\n" :
($foo == 3) ? print "It's three\n" :
print "It's nothing meaningful!\n";