Select Code to Download

me@office:~$ locale
LANG=en_US.UTF-8
...
LC_MEASUREMENT="en_US.UTF-8"
LC_IDENTIFICATION="en_US.UTF-8"
LC_ALL=

sub first_alpha {
  my $alpha = shift;
...
  }
  return $alpha;
}

sub first_alpha {
  my $string = shift;
...
}