Perlの画像アップロードスクリプトのエラー とあるフリーのCGIスクリプトを使ってサイト運営をしようとしていますが、画像をアップロードする部分で、gif,jpgは…

Perlの画像アップロードスクリプトのエラー とあるフリーのCGIスクリプトを使ってサイト運営をしようとしていますが、画像をアップロードする部分で、gif,jpgはできるのですが、pngではエラーになります(「画像が判別できません。」と表示されます。仕様上は3種類可)。 下記が該当部分だと思いますが、どのように修正すればよいか教えていただければ幸いです(関係ないと思いますが、httpsのサイトです)。 if($form{file1} && !$form{ok1} && !$main_img){ $file_type_temp1 = @form[0]; ($temp_file1, $content_type1) = split ("\n", $file_type_temp1); chop $content_type1; $file1 = ""; if($content_type1 =~ /^