#!/opt/bin/perl

($ts)=@ARGV;

for (0..29) {
    system ("pmmodem $ts $_ ATH1");
}
