Select Code to Download

# cat foo.pl
# -----------
...

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

...
   149    stat64("/usr/lib/perl5/site_perl/5.10.0/LWP.pm
...
   159    stat64("/usr/lib/perl5/vendor_perl/Encode/ConfigLocal.pm
   160    stat64("/usr/lib/perl5/vendor_perl/Log/Agent.pm
   161    XSLoader.pm