#!perl
use strict;
use warnings;

use MIME::Base64;

my $data = < base64-encoded data here >;

open my $outfile, '>', 'file.gif' or die $!;

binmode $outfile;

print {$outfile} decode_base64($data);

close $outfile;