use Tk; use Tk::Photo; use Tk::JPEG; my $mw=new MainWindow; $mw->geometry('+200+200'); $mw->overrideredirect(1); my $image = ' R0lGODlhLAHIAIAAAAAAAP///yH5BAAAAAAALAAAAAAsAcgAAAL/jI+py+0Po5y02ouz3rz7D4bi SJbmiabqyrbuC8fyTNf2jef6zvf+DwwKh8Si8YhMKpfMpvMJjUqn1Kr1is1qt9yu9wsOi8fksvmM TqvX7Lb7DY/L5/S6/Y7P6/f8vv8PGCg4SFhoeIiYqLjI2Oj4CBkpOUlZaXmJmam5ydnp+QkaKjpK Wmp6ipqqusra6voKGys7S1tre4ubq7vL2+v7CxwsPExcbHyMnKy8zNyMCADgTAYtPUZdHXadAM3d rf3gHR598L09jlAu3i1RbtCu3U5+vsDNoL4OHh9Q734fr79vnpF3/gCiK3iwAcGDCCOke5jQnkBz E/v5c0jwXEF+/xHpVRyyUKIFgCQnfivJTiDHfh0VoDTIcuTJmQ5CelRi0wNKkeZaZlgZjaY8hR+v wQyIgd9KpERdfmSKJOO9CyUbttxIAV5QjSqx3ozZNKk3pzVNPj3q45/VCVUv9mQ4NSW5oVAtun1L l6dYtWXJ6j2C1ifGsF8FEx6s1Z3fwj4NBj5sOK9kvICf/pV7WfDjx0hP1gW7WF5cxlSLWs5JeaBZ yIMzT667k+1D1I3Xppbp+nXsyk5ttyated5Gyx67Vtz9OTJn4Hbvinauuri60qx1G59egW9oyo61 /zzru3k4bOTLmz+PPr369ezbu38PP778+fTr22c/+r6Q8Pp5eP/vsRRF2MEljmwQeCXggMEJ9Zp1 +WGUH4IEjndbcjoEOCGFzxWIGVESBvThZwHOdtlwWd01nFnQSUQcDdQgN9lyzEUGmoXWiVYihhDl xmODN8743A9GgZcjBzB1V+GPGNb44o4+UpdPX0m2FURiM842VnbEIUljcllCNqRwXX1wFJfKEVnl mL09qGCHPToJHD5S5sURnBym9GWXUrUZlZoJavikgXOSZuZQSzIp5jh2AnogozXexl8Rvs1kmpFb nuZnnIoitxCcSfb4aHAMOREiidtBWV2MmIamY6ZB0shZmaumdqhFQqLp4Jp3NhpXin/yiSWtpl33 YJT5lKpiWS2ZytCdmNJlKCevA4YIYrEWyunpgnwae6y1aulTa3/ijktuueaei2666q7Lbrvuvgtv vPLOS2+99t6Lb7767stvv/7+C3DAAg9McMEGH4xwwgovzHDDDj8MccQST0xxxRZfjHHGGm/Mccce fwxyyCKPTHLJJp+Mcsoqr8xyyy6/DHPMMs9Mc80234xzzjrvzHPPPv8MdNBCX1AAADs= '; my $foto = $mw->Photo( -data => $image ); $mw->Button(-image => $foto, -command => sub{ $mw->destroy })->pack(); MainLoop;