Select Code to Download

use strict;
use File::Type;

...
     print "$type1\n";
     print "$type2\n";
     print `file $infile`;

image/jpeg
image/jpeg
flower.jpg: JPEG image data, JFIF standard 1.01