#!/usr/local/perl
#
# Script que me permite conectar a Alegro de Forma Indefinida.
# Saludos,
# JosueCool

use strict;
use warnings;

my @estado;

while("true"){
	open(ESTADO,"rasdial|");	#Obtener la salida del comando
		@estado=<ESTADO>;	#Asignar la salida a una variable
	close(ESTADO);
	if ($estado[0] eq "Conectado a\n") {
	} else {
		system("rasdial \"ALEGRO 1x EVDO\" USUARIO CLAVE /PHONE:#777");
	}
}