perl -MO=Xref foo.pl