use Tk;
use Tk::PNG;

my $mw = MainWindow->new (
	-title => 'KK',
);
$mw->geometry ('200x30');

my $icon = $mw->Photo (
	-file   => 'valentine_prev.jpg',
	-format => 'PNG',
	-width  => 32,
	-height => 32,
);

$mw->iconimage ($icon);

MainLoop;