#!/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";
}

