perl -MO=Xref,-r foo.pl