use autodie;
my $unInstallExepath = "C:\Program Files\NetBeans 7.0\uninstall.exe";
my $path = dirname($unInstallExepath);     # $path contain  C:\Program Files\NetBeans 7.0
$path = quotemeta($path);
chdir($path) or print "XXXXXXXXXXXXXX $!";