$mainwindow->Icon(
    -image => $mainwindow->Pixmap(
        -file => 'c:/perl/site/lib/tk/Dubya.xpm'
        ),
    );