$ perl 1193762.pl
now: 7
evt: 13
diff: -6