#!/usr/bin/perl

use Term::ReadLine;
use Term::ReadKey;

$in = new Term::ReadLine 'LABEL';
$inval = "";
$prompt = " Enter a Unix command.  Enter 'quit' to bailout.\n\n  -> ";
	while ( $inval eq "" ) {
	$inval = $in->readline($prompt);
	}
if ($inval ne "quit") { #Do this
	print "You entered: $inval\n";
	system("$inval");
} else {
	print "You said to quit.\n\nBye!\n";
	$quit = confirm("quit");
	if ($quit eq "n") {
		print "Decided not to quit I see.\n";
	} else {
		print "OK, OK, I'm quitting...\n";
	}
}

pressanykey();

##################################################################
##################################################################
# SUB: Global Sub-Routines #######################################
##################################################################
##################################################################

#####################
# SUB: Clear Screen #
#####################
sub clear {
	system("clear");
}


######################
# SUB: Press Any Key #
######################
sub pressanykey {
	print "\n Press any key to continue...\n";
	ReadMode ('cbreak');
	while (1) {
		$key = ReadKey(0);
		last;
	}
	ReadMode 'restore';
}


#####################
# SUB: Confirmation #
#####################
sub confirm {
	my($action, $key) = @_;
	clear();
	print "\n Are you sure you want to $action? (y/n)";
	ReadMode ('cbreak');
	while (1) {
		$key = lc(ReadKey(0));
		last unless defined $key;
		last if (($key eq "y") || ($key eq "n" ));
	}
	ReadMode 'restore';
	clear();
return($key);
}