Select Code to Download

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