#!/usr/bin/perl
use strict;
use warnings;

my $server = "astrad";
my $filename = "sip_reg_".$server."_";

for(my $i=1; $i <= 200 ; $i++) {
        system("date");
        system("echo Launching ". $i ." SIP register processes to ". $server);
	system("../stat/multiregsiping.pl -u 41215504120 -p 8TpTovxq -h 94.23.225.212 -d 30 -n ". $i ." >> outputs/".$filename . $i);
	sleep(60);
}
