Select Code to Download

Select or download this

$unInstallExepath= "c:\program files\netbeans 7.0\uninstall.exe";
my $path = dirname($unInstallExepath);     # $path contain  c:\program
+ files\netbeans 7.0
...
chdir ('$path') or print "XXXXXXXXXXXXXXXXXXXXXXXXXXXX   $!";   
System ("start $exe");

Select or download this

#$path = quotemeta($path);
      #$path =~s /\\/\//g;
      #$path =~s / /\\/g;
      #$path =~s /(\s\w*)/\~1/;
      #$path =~s /(\s\d*)/\~1/;