Help for this page

Select Code to Download

Select or download this

for(qw(1 4 haha)){
   eval { usenumbers($_) } or die($@);
...
   print "Yes, [$var] has numbers.";
   return 1;
}

Select or download this

for(qw(1 4 haha)){
   eval { usenumbers($_) };
...
      or die('Invalid argument: Expecting digits');
   print "Yes, [$var] has numbers.";
}