package cback_test; $cb1_cnt = 0; sub callback1 { print "Timer value in callback1 is: $_[0]"; $cb1_cnt++; return; } $cb2_cnt = 0; sub callback2 { print "Timer value in callback2 is: $_[0]"; $cb2_cnt++; return; } 1;