use strict;
use warnings;
# line passes through (x1, y1) and (x2, y2)
my ($x1, $y1) = (0, 2);
my ($x2, $y2) = (-2, 2);
# put it into the form y = mx + b
my $m = ($y2 - $y1) / ($x2 - $x1);
my $b = ($y1 * $x2 - $y2 * $x1) / ($x2 - $x1);
# target point is (x0, y0)
my ($x0, $y0) = (8, 0);
# shortest distance from line to target point
my $d = abs( $y0 - $m * $x0 - $b) / sqrt($m * $m + 1);
print "The closest distance is $d\n";