#!/usr/bin/perl -w
use Device::Modem;

# fake array :-)  I'm lazy
foreach my $port qw(  /dev/ttyS0  ..  /dev/ttyS24 ){

my $modem = new Device::Modem( log =>'file,modemlog',
      port => $port ) || die "no $port: $!\n";

$modem->reset(); #hangup + attention + restore setting 0 (Z0)
}