Try replacing this code

if(system(-r $createdir))
{}
else
{
$mw->messageBox (-default => 'Ok',-title => 'Alert!',-message => "Crea
+te C:/temp directory first to run the program", -type => 'Ok',);
exit;
}
[download]

with this

unless ( -d $createdir ){
  $mw->messageBox (
  -default => 'Ok',
  -title   => 'Alert!',
  -message => "Create $createdir directory first to run the program", 
  -type    => 'Ok',);
  exit;
}
[download]

poj