#!/usr/bin/perl -w

use strict;

my ($routers_file);

$routers_file="list.txt";

open(PIX, "<", $routers_file) or die("Can't open $routers_file: $!");

while (<PIX>) {
        system("./routersshexec.exp $_") == 0 or print "Could not do $_: $!\n";
}

exit 0;