package MyClass;

sub new {
    my $class = shift;
    bless(\$class, $class);
}

sub do_it {
    print "Doing something!\n";
}

package main;
my $c = MyClass->new();
my $class = 'MyClass';
$c->do_it();
$class->do_it();