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

print "Enter the distance to be converted:";
$_=<>;

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