Select Code to Download

my $cnt = 0;
while(1)
...

   #print event trigger from hash
}

my %hash = (
              1 => {
...
                event => "I saw Fiona!"
              },
);