Select Code to Download

#! /usr/bin/perl

...
    my ($x1, $y1, $x2, $y2 ) = @_ ;
    return sqrt( abs( $x2 - $x1 )**2 + abs( $y2 - $y1 )**2 ) ;
}

#! /usr/bin/perl

...
e753 35.6 2.2
f854 76.5 46.7
g354 8.7  8.6