Select Code to Download

use strict;
use warning;

if ($another == 'y')

my $another = <STDIN>;
chomp $another;
if ($another eq 'y') {
    ...
}

$draw1 = int &draw;

sub draw {
  $draw = int rand(10);
}