sub gifSize{
    if (-e $_[0]){
        if (open (HANDLE, "<$_[0]")){
            my $retStr = "";
            binmode HANDLE;
            read(HANDLE, $retStr, 10);
            close (HANDLE);
            
            return (unpack ("v", substr($retStr,6,2)),unpack ("v", substr($retStr,8,2)));
}    }    }