# cat test.pl
#!/usr/bin/perl -w

print "1.TEST PRINT\n";

$num_args = $#ARGV + 1;

if ($num_args == 1) {
    if ('123' eq $ARGV[0]) {
        print "2. EQUEL\n";
    }
} else {
    print "2.NOT EQUEL\n";
}