#! C:\Perl 
print "Enter a number:  "; 
$number = <STDIN>; 
print "You entered $number";

##</code><code>##

use IO::Handle; 
STDOUT -> autoflush(1);
STDERR -> autoflush(1);