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