#!/usr/bin/perl select STDOUT; $|=1; $parametres=$ENV{'QUERY_STRING'}; $parametres=~/.*=(.*)/; $ip=$1; print< Résultats

Résultat du traceroute pour DATA print $ip; print<:




DATA $parametres=$ENV{'QUERY_STRING'}; $parametres=~/.*=(.*)/; #$resultat=`traceroute $ip`; $resultat=`traceroute alcoolo.net`; @test=split /\n/,$resultat; foreach $test(@test) { $test=$test."
"; print $test; } print $resultats; print<

DATA