opendir(DIR, "/var/www/virtual/merchandisemarket.net/m_images/");
       my @userfiles = sort grep !/^\.\.?\z/, readdir DIR;
       close DIR;

       unless (grep {$filename eq $_} @userfiles) {
       error("Your already uploaded a file named \"$_\"!");
	 }