package TestA;
{
  my $var="TestA";
  1;
}

package TestB;
{
  use TestA;
  my $var2="TestB";
}
package TestA;
{
  print "'$var','$var2'";
  1;
}