my $foo = new Foo("bar");

package Foo;
sub new {
    my $class = shift;
    my $var = shift;
    bless \$var, $class;
}