$imtk = $mw->Photo(-data => $imgd->jpeg(), -format => 'jpeg');
} else {
    $imtk = $mw->Photo(-file => $file,         -format => 'jpeg');
[download]

The command is different, using the file directly via the file option rather than data. Larger files have to be resized to fit. I was thinking of using a temporary file as a workaround.

Regards,

John Davies