my $eventManFh = pop;
my @events = @_;
# ...