#!/usr/local/bin/perl

print ("Enter a number to be multiplied by 2:\n");
$number = <STDIN>;
chop ($number);
$number = $number * 2;
print ("The result is ", $number, "\n");
