sub sizeJPG {
    return unless $_[0];
    my ( $width, $height );
    ( $height, $width ) = 
   unpack( "nn", $1 ) if $_[0] =~ /\xFF\xC0...(....)/;
    return ( $width, $height );
}