if ($foo) {
    print "foo option used with optional value: $foo \n";
} elsif (defined $foo) {
    print "foo option used with no optional value \n";
} else {
    print "foo option not used at all \n";
}