sub _file_upload { 
 my $self = shift; 
 
 no strict 'refs'; 
 foreach(@_) { 
        
         my $file = $_; 
	 if ($file ne "") {
		 my $fileName = $file; 
		 $fileName =~ s!^.*(\\|\/)!!; 
		 open (OUTFILE, ">$img_dir/$fileName") or die("can't write image file '$img_dir/$fileName': $!"); 

		 while (my $bytesread = read($file, my $buffer, 1024)) { 
		 
			 print OUTFILE $buffer;
		
			  
		 } 
		 close (OUTFILE); 
		 }
	 }
 }