#! perl -slw
use strict;
use threads;

our $GUI //= 0;

open LOG, ">", "$0.log"
   or print "Can't create log file: $!";

if( $GUI ) {
    require 'MyGui.pm';
    async( \&MyGui::gui )->detach;
}
else {
    binmode STDIN, ':encoding(UTF-8)';
}

binmode LOG, ':encoding(UTF-8)';

while( 1 ) {
    printf 'Enter three, 2-digit numbers: ';
    my $in = scalar <STDIN>;
    last if $in =~ '!bye';
    print 'You entered: ', $in;

    printf 'Enter a date and time: ';
    $in = scalar <STDIN>;
    last if $in =~ '!bye';
    print 'You entered: ', $in;
}