my %ALLOWED = ('GIF' => 1 ,'JPEG' => 1 );
# can be called like this 
my $Type = imgtype('some/location/image');
if ( defined $Type && $ALLOWED{$Type} ) {
   # process image
}else{
   # delete it or do whatever you want with it
}