package Foo;

sub bar {
    print "Foo::bar!\n";
}

package main;

my $x = 'Foo';

$x->bar();