1 2 3 4 5 6 7 8 9 10 11
#!/usr/local/bin/perl -w use strict; use Tk; use Tk::widgets qw(Button); #use Carp (); #$SIG{'__DIE__'} = \&Carp::confess; my $mw = MainWindow->new(); $mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack; MainLoop;
Loggerhead is a web-based interface for Breezy Version: 2.0.1