use strict;
use warnings;

my $x1=10;
my $y1=20;
my $x2=-8;
my $y2=2;

my $dist=sqrt(($x1-$x2)**2+($y1-$y2)**2);

print "$dist =distance";