Try my $im = GD::Image->newFromGif( \*F );

Hang on, did you check whether your open succeeded or not? Do this instead:

open F, TMP_GIF_FNAME or die "Can not open image: $!";
[download]