#!/usr/bin/perl

require Term::Screen::Win32;
#This pm is used for single key input, specific screen location
# and other screen manipulations (clrscr() clears screen)

$scr = new Term::Screen::Win32; #This sets up $scr with the screen access commands using Win32.pm
   unless ($scr) { die " Something's wrong \n"; }

$scr->clrscr();
while (length($ans)<9) {
    $scr->at(0,0); print "Type something here: \n";
    $ans = $scr->getch();

    if ($ans =~ "\r") {print"True";}

    $newval .= $ans;
    $scr->at(1, 0); print $newval;

}#end while
$scr->at(2,0);
print "Enter something: ";
$response = <stdin>;
print $response,"\n";