Select Code to Download

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

...

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

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

...

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