#!/usr/bin/perl

print "Hello, World ... Convert miles to meters ...\n";

my $FEET_TO_METER = 0.3048;
my $METER_TO_FEET = 3.28083989501312335958;

if (@ARGV) {
	my $miles = shift;
	my $met1 = 5280 * $FEET_TO_METER;
	my $mets = $miles * 5280 * $FEET_TO_METER;
	print "1 miles = $met1 meters ... so\n";
	print "$miles miles = $mets meters ...\n";
} else {
	print "Enter number of miles to convert to meters ...\n";
}

