#!/usr/bin/perl

use strict;
use warnings;

for my $i (1 .. 4) {
    my $result = (&successfulValidation ($i))? "OK": "NOK";
    print "Test ", $i, ": ", $result, "\n";
}

sub successfulValidation {
    my $test = shift;

    if ($test == 1) {
        return defined ($ARGV[0] || $ARGV[1]);

    } elsif ($test == 2) {
        return defined $ARGV[0] || defined $ARGV[1];

    } elsif ($test == 3) {
        return defined ($ARGV[0] && $ARGV[1]);

    } elsif ($test == 4) {
        return defined $ARGV[0] && defined $ARGV[1];
    }
}