Perl/wecker.pl
Jump to navigation
Jump to search
- !/usr/bin/perl
- Usage: perl wecker.pl <popup message>
- Depends: perl-tk
use strict; use Tk; use utf8; use Encode qw(decode encode);
my $input = $ARGV[0]; my $message = decode("utf8", $input); $message = "Reminder" unless $ARGV[0];
my $main = MainWindow->new; $main -> Label( -text=>$message, -height=>"20", -width=>"40")->pack; $main -> Button( -text=>'quit', -command=>'exit')->pack;
MainLoop;