That is not required, all is required is this:

package foo;
use strict;

sub foo::ARGV { print "in foo::ARGV\n" }

package main;
foo->ARGV;
[download]