Select Code to Download

use Cwd;
use FindBin qw($RealBin);
...
printf("\$this_proc: $this_proc\n");
printf("\$this_proc_path: $this_proc_path\n");
printf("\$RealBin: $RealBin\n");

    $this_proc: P.PL
    $this_proc_path: C:\tmp\
    $RealBin: C:/tmp

    $this_proc: p
    $this_proc_path: 
    $RealBin: C:/tmp

perlapp --norunlib --clean --force --exe p.exe --perl C:\Perl\bin\perl
+.exe p.pl