$foo = shift;
$foo = 1 unless defined $foo;