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