#!/usr/bin/perl

print "Enter weight in pounds: ";
$input = <STDIN>;

$kg = $input * 0.454

print "$input pounds is equal to $kg kilos! \n"