sub test {
my $start_time = time;

print USAGE_FH "\n".$IP.",$event_name,".$start_time.",";

-----------

code for execution
-----------

my $endtime = time;
my $diff_time = $endtime - $start_time;
print USAGE_FH $endtime.",".$difftime;

}