package a;

sub a_scalar  { return 'in sub a_scalar'; }
sub a_list    { return qw(in sub a_list); }
1;