Convert to Kilometers

#!e:/Typerl/perl/perl5/perl
print ("Enter the distance to be converted from miles to kilometers:\n");
$miles = <STDIN>;
chop($miles);
$kilometers = $miles * 1.609;
print( $miles, " miles = ", $kilometers, " kilometers\n" );