mph2knot.pl to HTML.

index -|- end

Generated: Sun Aug 21 11:11:16 2011 from mph2knot.pl 2011/08/16 388.

#!/perl -w
#  mph2knot.pl
# AIM: Convert MILE PER HOUR to KNOTS
# 1 Miles Per Hour = 0.86897699264 Knot.
use strict;
use warnings;
my $mph = 100;
my $MPH2KNOT = 0.86897699264;
if (@ARGV) {
   $mph = pop @ARGV;
} else {
   die "Enter the MPH you want converted to Knots ...\n";
}

my $knots = ($mph * $MPH2KNOT);

print "$mph mph = $knots knots ...\n";

# eof - mph2knot.pl

index -|- top

checked by tidy  Valid HTML 4.01 Transitional