#!usr/bin/perl

use Term::ReadKey;

do 'user_options.pl';
do 'createpdf.pl';

print "Program ON\n";

ReadMode 4; # Turn off controls keys
    

$input=0;
until ($input eq "q"){
	while (not defined ($input = ReadKey(-1))) {
	do 'appendpdf.pl';
	sleep(1);
    	}
}

ReadMode 0; # Reset tty mode before exiting

print "\nProgram OFF\n";