Select Code to Download

use strict;
use warnings;
...

$img-> write( join '.', $gif, 'half', 'gif' )
    or die $img-> errstr;