my $ph = $mw->Photo(
            -file   => "$FindBin::RealBin/icons/" . $icon->{file},
            -width  => 40,
            -height => 30,
        );