# Testen ob die Extension erlaubt ist.
my @Extensions = ('gif', 'jpg', 'pdf', 'png', 'zip');
my $ext = (split /\./, $serverFile)[1];

program_error("The extension of the file is not valid.") unless grep /$ext/i, @Extensions;