Select Code to Download

marto@Shemp:~/code$ cat ff.pl 
#!/usr/bin/perl
...

my $mech = WWW::Mechanize::Firefox->new();
$mech->get('http://perlmonks.org');

marto@Shemp:~/code$ pp -vvv --log=pp_no_x.log -o ff_no_x ff.pl

marto@Shemp:~/code$ pp -vvv --log=pp_with_x.log -x -o ff_with_x ff.pl

marto@Shemp:~/code$ diff pp_no_x.log pp_with_x.log 
2c2
...
---
> Packing "Config.pm"...
> Written as "Config.pm"