my $a = 1;

print OVERLOADED;

sub OVERLOADED{
  #This sub wants a char array
  return (shift eq "one"?1:0);
}

sub OVERLOADED{
  #This sub is illegal in Perl
  #This sub wants an int
  return (shift == 1?1:0);
}