Help for this page
#!/usr/bin/perl use strict; use warnings; ... print "Bad input\n"; exit; }
ww@GIG:~/pl_test$ perl 675693.pl Enter a positive integer: -3 Bad input ... Enter a positive integer: 1.35 Bad input ww@GIG:~/pl_test$