#! perl -slw
use strict;
use threads;

our $GUI //= 0;

if( $GUI ) {
    require 'MyGui.pm';
    async( \&MyGui::gui )->detach;
}

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

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