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

Output:
0
0
zero
no arg
[download]

hth,
PooLpi

Update : 'no arg'