perl -e "@trace=`tracert -w 200 -p 30 perlmonks.org`;foreach $i (@trace){print \"$i\n\";}"