perl -MO=Xref source1.pl >source1.xref