#!/usr/bin/perl

while(1){
`./ibuspulse 8 10000 25000 4 20000 20000`;
`usleep 500000`;
}