Select Code to Download

#!/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$