Select Code to Download

$| = 1; # autoflush
print "Enter last number: ";
...
print join( ", ", 1 .. $last ), "\n";
#Output:
#1, 2, 3, 4, 5

use strict;
use warnings;