<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
--></style>
</head>
<body class='hmmessage'>
Amigos, boa noite<BR>
<BR>
<BR>
<BR>
Está vulgar?<BR>
<BR>
<BR>
Grato, Joaquim.<BR>
<BR>
<BR>
#!/usr/bin/perl<BR>
<BR>
use strict;<BR>use warnings;<BR>use Net::Ping;<BR>
<BR>
my $url = "<A href="http://www.google.com.br">www.google.com.br</A>";<BR>
my $gw1 = '10.10.10.1';<BR>
my $gw2 = '192.168.0.1';<BR>
my $p = Net::Ping->new( "icmp", 60, 64 );<BR>
<BR>
if ( $p->ping($url) ) {<BR>
$p->close();<BR>
} elsif {<BR>
open( N, "route |") {<BR>
$_ = (<N>);<BR>
@_ = split(/s+/, $_);<BR>
qx(route del default gw $_[1]);<BR>
qx(route add default gw $gw1);<BR>
}<BR>
close(N);<BR>
} else {<BR>
open( N, "route |") {<BR>
$_ = (<N>);<BR>
@_ = split(/s+/, $_);<BR>
qx(route del default gw $_[1]);<BR>
qx(route add default gw $gw2);<BR>
}<BR>
close(N);<BR>
}<BR><BR>                                            <br /><hr />Navegue com segurança com o Novo Internet Explorer 8. <a href='http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmail&utm_medium=Tagline&utm_campaign=IE8' target='_new'>Baixe agora, é gratis!</a></body>
</html>