#!/usr/bin/perl
#Program name: example3.pl
#  read a number from standard input
print("Enter a number: ");
$number = <STDIN>;
print("You entered $number\n");