Select Code to Download

use warnings;
use strict;
...
else {
    print "Please enter a value between 0 and 100\n"; 
}

#!/usr/bin/perl -w

...
}else {
     print "Please enter a value between 0 and 100"; 
}