perl -d diff.pl file1 file2
...
DB<1> x @INC
0  'C:/Perl/lib'
1  'C:/Perl/site/lib'
2  '.'
DB<2>q