my $ftp;
	for ($i=0;$i<5;$i++) {
		undef $ftp;
		if ($ftp = Net::FTP->new("ftp.$dom", Debug => 0)) {
			last;
		}
		if ($i >= 4) {
			die("The given FTP server could not be found.");
		} else {
			sleep 5;
		}
	}