package Foo;

sub new { return bless {}, shift }

package main;

my $x = new Foo;
my $y = new Foo;

print "number: ", int $x, " -- ", int $y, "\n";
print "string: $x -- $y\n";