f(10);
f("Hello World");
f();
f(0);
f('');

sub f {
    my $x = shift;
    if (defined $x) {
        print("Present $x\n");
    }
    else {
        print("Not Present\n");
    }
}

Present 10
Present Hello World
Not Present
Present 0
Present