use Win32::Console;

#this is used to take hash values and convert to standard strings.
use Data::Dumper;
use Time::HiRes qw(gettimeofday tv_interval);
use strict;
use warnings;

#First we set the terminal variable to the new win32 console.
my $term = Win32::Console->new('Geo::Coder::US');

#Now we allocate the memory for the terminal
$term->Alloc();
#Now we show the display
$term->Display();

#This will output some text to the terminal
print "Enter some data below\n";

#This is where the variable cool is set to the input of the user.
#The screen will wait for input
my $cool = <STDIN>;
#This will clear any new lines in the cool variable
chomp($cool);

#That's it we can print the variable.

print $cool