--------------------------------------------------------
#!/usr/bin/perl
print "Enter the distance to be converted:\n";
chomp($_=<>);print"$_ kilometers= ".$_*0.6214."
miles\n$_ miles= ".$_*1.609." kilometers\n";
--------------------------------------------------------