#!/opt/bin/perl

for $ts (1..6) {
    open (PM,"|pmcommand ts-$ts") || die "cant connect to ts-$ts";
    for $port(0..29) {
	printf PM "set S$port prompt [$ts-S%2.2d] login: \n",$port;
    }
    close PM;
}

