Listing B
if ($ENV{DISPLAY} && system('/usr/X11R6/bin/xtest') == 0) {
       eval { require interactive_gtk };
       if (!$@) {
            my $o = interactive_gtk->new;
if ($icon && $icon ne 'default' && !$::isWizard) { $o->{icon} = $icon
} else { undef $o->{icon} }
            return $o;
       }
} else {

}
require interactive_newt;
interactive_newt->new;