#!/usr/bin/perl
use strict;
use warnings;

package Foo;
sub new {
    bless {}, shift;
}

package main;
my $objName = "Foo";
my $obj = $objName->new();
my $obj1 = new $objName();