my $safe_filename_characters = "a-zA-Z0-9_.-";
sub PLOTTING
{
my ($GRAPH_FH, $mygraph, $graphimage);
open ($GRAPH_FH, '>','/home/deruytja/webserver/output/multiping/'.$graphname.'.png');  #Redirecting Standart Error to file

$mygraph = GD::Graph::linespoints->new(500, 300);
$mygraph->set(
    x_label     => 'Link',
    y_label     => 'Antwortzeit in ms',
    title       => 'Antwortzeiten der Links',
	dclrs 		=> ['green'],
	y_max_value	=> $max,
	bar_spacing => 10,
	show_values => 1,
) or warn $mygraph->error;
$graphimage = $mygraph->plot(\@graphdata);
binmode $GRAPH_FH;
print $GRAPH_FH $graphimage->png;
close $GRAPH_FH;
}