use MIME::Base64;
use GD;

## get data into $var64 ...

my $jpeg = decode_base64($var64);
my $gd_image = GD::Image->newFromJpegData($jpeg);

## or, even :
my $gd = GD::Image->newFromJpegData(decode_base64($var64));