my $im = GD::Image->newFromJpeg( $jpg, 1 );