#! /usr/local/bin/perl

use Mod1;
use Mod2;

my @nodes = ("switch1", "switch2", "switch3", "switch4", "switch5");

foreach my $node_name (@nodes) {

   # a 4-10 minute TL1 conversation using Expect
   my $port_hashref = Mod1->sub1($node_name); 

   # a five minute series of SQL queries using DBI
   Mod2->sub2($node_name, $port_hashref);

}