# myscript.pl # # script must be run in a terminal # use Gtk2 '-init'; my $window = Gtk2::Window->new(); $window->signal_connect( destroy => sub { exit } ); my $button = Gtk2::Button->new("click me to close"); $button->signal_connect('clicked'=> sub { exit } ); $window->add($button); $window->show_all(); Gtk2->main; #### # main.pl # my $k = 0; while($k < 3){ system("gnome-terminal -e 'perl myscript.pl'"); $k++; }