package fred; 
sub fred{ 
    print "This is fred::fred; so good they named me twice!" 
};;

package main; 
fred::fred;;
This is fred::fred; so good they named me twice!

$p= 'fred'; $s='fred';;

&{ "$p\:\:$s" };;
This is fred::fred; so good they named me twice!

*{ "$p\:\:$s" }->();;
This is fred::fred; so good they named me twice!