Perl for the day: Conditional construct

use strict;
use warnings;
if($#ARGV + 1 < 1) {
    print "Vaadaa\n";
}
else {
    print "Podaaa\n";
}