Select Code to Download

use File::Spec;
use File::Basename;
...
   @args = fileparse($path,(".pl", ".exe"));
   return(@args);
}

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