foo();
foo(23);
foo(0);

sub foo {
    my $number = shift || 10;
    print "My number is $number\n";
}

__END__ #OUTPUT:
My number is 10
My number is 23
My number is 10