meters2miles.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:44 2010 from meters2miles.pl 2005/10/25 466.

#!/usr/bin/perl
print "Hello, World ... Convert meters to miles ...\n";
my $FEET_TO_METER = 0.3048;
my $METER_TO_FEET = 3.28083989501312335958;
if (@ARGV) {
   my $mets = shift;
   my $mil1 = $METER_TO_FEET / 5280;
   my $mils = ($mets * $METER_TO_FEET) / 5280;
   print "1 meter = $mil1 miles ... so\n";
   print "$mets meters = $mils miles ... ";
   print ($mils * 5280) . " feet\n";
} else {
   print "Enter number of meters to convert to miles ...\n";
}

index -|- top