sub foo { my $class = shift; $class->bar(); # call bar() as a class method }