use File::Spec;
use File::Basename;

[...]

sub GetProcInfo {
   my ($path, @args);

   if (defined $PerlApp::VERSION) {
      $path = PerlApp::exe();
   } else {
      $path = File::Spec->rel2abs($0);
   }
   @args = fileparse($path,(".pl", ".exe"));
   return(@args);
}

##</code><code>##

(@args) = File::Spec->splitpath( $proc_path );