# a quick function to log and die a process on error sub dielog { my ($error) = @_; logme(message => "$error", level => 'ERROR'); logme(message => "queue_runner ended"); die "$error\n"; }