I have never done it, and this is untested, but i would guess :

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));
[download]

Once again, untested, but based on your problem and the perldoc's, thats my guess :)

---

$ perl -e 'do() || ! do() ;'
Undefined subroutine &main::try
[download]