use strict; use Statistics::Burst; my $burstObj=Statistics::Burst::new(); $burstObj->generateStates(3,.111,2); $burstObj->gamma(.5); my @gap_space = (5,5,10); $burstObj->setData(\@gap_space); $burstObj->process(); my $statesUsed=$burstObj->getStatesUsed();