ww@GIG:~/pl_test$ perl 675693.pl
Enter a positive integer: -3
Bad input
ww@GIG:~/pl_test$ perl 675693.pl
Enter a positive integer: 27
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
ww@GIG:~/pl_test$ perl 675693.pl
Enter a positive integer: 1.35
Bad input
ww@GIG:~/pl_test$