$fork = fork();

      if(fork){

        sleep 20;
        open (MYFILE, "traceroute$time.txt");
        @data = <MYFILE>;
 
        if (!@data){
 
        $error = 'Ip could not be Tracerouted';
        push (@lines, $error);
 
        }else{
 
          foreach $line (@data) {
 
            $line =~ s/\n/<br>/g;
 
            push (@lines, $line);
 
          }
        }
 

      }else{

        $tracert = `traceroute "$ip" > traceroute$time.txt`;

      }