#!/usr/bin/perl -w
use strict;

print "Enter the distance to be converted:\n";
chomp($_=<>);

print "$_ kilometers= ", $_*0.6214, "miles\n",
      "$_ miles= ", $_*1.609, " kilometers\n";