{
  package A;
  sub just_print {
    my $class = shift; # extra parameter must be accounted for
    print "In A: @_\n";
  }
}
{
  package B;
  sub just_print {
    my $class = shift; # extra parameter must be accounted for
    print "In B: @_\n";
  }
}
# back to package main:
print "A or B: ";
chomp(my $selector = <STDIN>);
$selector =~ /^[AB]$/ or die "I said A, or B!";
$selector->just_print(1..10); # prints 1..10