#!/usr/bin/perl

use BMORROW::Tie::TkWatch qw/Run/;

Run {
    print "Hello world!\n";
    warn "Houston, we have a problem";
} 'My Perl App';

__END__