# cat foo.pl
# -----------
#!/usr/bin/perl -w
use strict;

use CGI;
use LWP::Simple;
1;

strace perl foo.pl 2> foo.pl.strace
perl -ne 'if(m/(\S+\.pm)/){print qq|$1\n|}' foo.pl.strace|sort|uniq|cat -n