package foo; sub ARGV { print "in foo::ARGV\n" } package main; foo->ARGV;