#!/usr/bin/perl
# The distance formula!!!
print "What is the first point? (";
chomp ($x1 = <STDIN>);
print ",";
chomp ($y1 = <STDIN>);
print ")\n";
print "What is the second point? (";
chomp ($x2 = <STDIN>);
print "$x2, ";
chomp ($y2 = <STDIN>);
print "$y2)";