perl -e 'sub new{print@_} main->new(); open main, "foo";'
perl -e 'sub new{print@_} main->main::new(); open main,"foo";'