#!/usr/bin/perl -I. use IO::Event 'emulate_Event'; use FindBin; require "$FindBin::Bin/callbacks.tt";