Select Code to Download

my $timer = Glib::Timeout->add (100,\&show_refresh);
# timer will run until callback returns false

#!/usr/bin/perl
use strict;
...
$mw->show_all();

}

#!/usr/bin/perl
######################################################################
+ 
...

main Gtk2;