sub function1 {
       my ($var) = @_? @_:'no arg';  
       print qq{$var\n};
}
function1(0);
function1('0');
function1('zero');
function1();

##</code><code>##

Output:
0
0
zero
no arg