Help for this page

Select Code to Download

Select or download this

sub has_alpha
{ my ($string) = @_;
...
  }
  return;
}