#!/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";

##</code><code>##

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

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

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