my $img = $tl->Photo(-file => "path_to_image");
$tl->Icon(-image => $img);