Select Code to Download

#!perl -w
use strict;
...
  }
}

sub if_integer
{ my $i = shift;
 
  return defined $i && $i =~ m/^\d+$/;
}

  return defined $i && $i =~ m/^\d+$/ || 0;