$ perl -wle 'sub x{@_} print x(substr undef,0)'