$win->bind('<Return>' =>
    sub {
	my $win2 = $win->Toplevel;
	my $image = $win2->Photo;
	$image->configure(-file=>&nowpic);
	$win2->Label(-image=>$image)->pack;
	$win2->title(&nowpic);
    }
);