my $dir = $q->param('imageDir') ?  
          $q->param('imageDir') :  
          '\images'; # or some other default. 
 
die "Illegal directory name '$dir'" unless -d $dir; 
chdir( $dir ) or die "Couldn't cd to '$dir', $!";