sub func {
   my $s = @_ ? $_[0] : $_;
   ...
}