my $ID;
if(CGI::param($SID) && CGI::param($SID) =~ /^\d+$/) {
  $ID = CGI::param($SID);
else {
  #...
}
$ID =~ s/[^a-zA-Z0-9]//g;