...
if ( param('trace') and param('trace') =~ /^[-.0-9a-zA-Z]+$/ ) { 
    print p( "Hello There- I am writing this from " 
           . "scratch so please be patient. Thanks!" ), 
        "<pre>"; 
 
    system( "/usr/sbin/traceroute", param('trace') ); 
...