Select Code to Download

sub imgtype {
    my $file  = shift;
...
       }
}

my %ALLOWED = ('GIF' => 1 ,'JPEG' => 1 );
# can be called like this 
...
}else{
   # delete it or do whatever you want with it
}