sub name {
   our $arg;
   local *arg = ref($_[0]) ? $_[0] : \do{my $anon = $_[0]};

   # Do stuff.
   $arg =~ s/^un//;

   return $arg;
}