if (!length($dateiname) == 0 && $dateiname =~ /^([$safe_filename_characters]+)$/)
		{
		$out_file = ("$dateiname\_$date.csv") or die 'Error processing file: ',$!;
		$graphname = "$dateiname\_$date";
		}
else
		{
		print $cgi->header();
		print 'There was a problem with your file name, it was reverted to "ping_" (please change output name).';
		$out_file = ("ping_$date.csv") or die 'Error processing file: ',$!;
		$graphname = "ping_$date";
		}