#!/opt/bin/perl

for $ts (1..5) {
    open (PM,"|pmcommand ts-$ts") || die "cant connect to ts-$ts";
    printf PM "add modem usr-v34 \"USRobotics28.8\" 115200 \"at&f1s0=1&k0&w\\r^OK\"\nsave all\n";

    close PM;
}

