Select Code to Download

use strict; use warnings; use feature 'say';
use DateTime::Format::Strptime;
...
say "diff: $diff";

__END__

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