Select Code to Download

use strict;
use warnings;
...
    $photo_canvas->createImage(16, 18, -image=>$photo);

MainLoop;