Select Code to Download

#!/usr/bin/perl
use strict;
...

use Test::More tests => 1;
is $current, 1, 'Events processed';

$ tktest.pl
1..1
...
#     expected: '1'
# Looks like you failed 1 test of 1.
$ kill $pid