#!/usr/bin/perl
# The distance formula!!!
use Term::ReadKey;
print "What is the first point? (";
ReadMode 'cbreak';
$x1 = ReadKey (0);
print "$x1,";
ReadMode 'cbreak';
$y1 = ReadKey (0);
print "$y1)\n";
print "What is the second point? (";
ReadMode 'cbreak';
$x2 = ReadKey (0);
print "$x2,";
ReadMode 'cbreak';
$y2 = ReadKey (0);
print "$y2)\n";