#package main;  # this is implicit

bar( qw( some args that were passed along ) );
foo( 'foo() stuff' );
::foo( '::foo() stuff' );
&::foo( '&::foo() stuff' );

sub bar { &foo; }
sub foo { print __PACKAGE__, " foo got '@_'\n" }

foo;  # bareword will work with no strictures after sub defn

package Foo;

foo( 'foo() stuff' );
::foo( '::foo() stuff' );
&::foo( '&::foo() stuff' );

sub foo { print __PACKAGE__, " foo got '@_'\n" }

__DATA__
main foo got 'some args that were passed along'
main foo got 'foo() stuff'
main foo got '::foo() stuff'
main foo got '&::foo() stuff'
main foo got ''
Foo foo got 'foo() stuff'
main foo got '::foo() stuff'
main foo got '&::foo() stuff'