Select Code to Download

...
print "enter a number: \n";
my $num = <STDIN>;
...
}
else {print "your number is $num\n"}
...