my @modules = qw(Tk Gtk);
my $loaded = 0;
foreach my $module (@modules)
{
    eval {
        require $module;
        import $module;
    };
    next if $@;

    $loaded = 1;
    last;
}
die "Can't load anything (@modules)\n"
    unless $loaded;

require POE;
import POE;