sub my_sub {
  my $arg = @_ ? shift : $_;
  # do stuff
}