#Embedding GIF bytes:
my $icon = pack('C*' ,71,73,70,56,57,97,64,...(Many more bytes)...,0,59);
my $img = Tkx::image_create_photo(-data => $icon);
$mw->g_wm_iconphoto($img);