Generated: Tue Feb 2 17:54:44 2010 from miles2meters.pl 2005/10/22 433.
#!/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"; }