BEGIN {
    if(exists $ENV{PAR_TEMP}) {
        my $dir = $ENV{PAR_TEMP};
        chdir $dir;
        my @substitutions = qw/Mojo Mojolicious/;
        for(@substitutions){
            next if -l;
            symlink "inc/$_", $_
                or die "Can't symlink $_ at $dir: $!";
        }
        print "I'm at at $dir\n";
    }
}


##</code><code>##

$ locate entities.txt
/home/dmol/development/perl/dev-env.new/perlbrew/perls/perl-5.16.3/lib/site_perl/5.16.3/Mojo/entities.txt

$ locate Commands.pm
/home/dmol/development/perl/dev-env.new/perlbrew/perls/perl-5.16.3/lib/site_perl/5.16.3/Mojolicious/Commands.pm
   

##</code><code>##

pp -x -a "/home/dmol/development/perl/dev-env.new/perlbrew/perls/perl-5.16.3/lib/site_perl/5.16.3/Mojo/entities.txt;Mojo/entities.txt" \
-a "/home/dmol/development/perl/dev-env.new/perlbrew/perls/perl-5.16.3/lib/site_perl/5.16.3/Mojolicious/Commands.pm;Mojolicious/Commands.pm" \
 ./myapp.pl