Select Code to Download

my $safe_filename_characters = "a-zA-Z0-9_.-";
sub PLOTTING
...
print $GRAPH_FH $graphimage->png;
close $GRAPH_FH;
}

sub UPLOAD
{
...
    }   
close $DAT;
}

if (!length($dateiname) == 0 && $dateiname =~ /^([$safe_filename_chara
+cters]+)$/)
        {
...
        $out_file = ("ping_$date.csv") or die 'Error processing file: 
+',$!;
        $graphname = "ping_$date";
        }