my $gif = $image_label->Label(
    -image       => $message->Photo(-file => Tk->findINC('Xcamel.gif')),
    -borderwidth => 2,
    -relief      => 'sunken',
    )->pack(-side => 'top');