sub upload_process{
		$ftp = Net::FTP->new("$remote_server") or &error;
		if($ftp->login("$FORM{username}", "$FORM{password}")){
			for(@list){
				if($ftp->ok()) {
					$ftp->put("N:/$local_home$_", "$start_folder$_");
				}else{
					print $ftp->code()." ".$ftp->message()."\n";
					$ftp->quit;
				}
		 	}
		}
		$ftp->quit;		
}