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