sub untaint {

      my $string = shift;
   
      my $clean_string;
     
      if ( $string =~ /([\w\-\_]+)/ ) { $clean_string = $1; } 
   
      else { die "ilegal character: $!"; }
   
      return $clean_string;
      
}