#!/usr/bin/perl -w
use strict;

package Foo;
sub new {
  return "Foo's constructor called\n";
}

package Bar;
sub new {
  return "Bar's constructor called\n";
}

package main;
sub Bar {
  return "Foo";
}

print Bar->new(), "\n"; # what gets printed?