--- /usr/lib/perl5/site_perl/5.8.8/MojoX/Session.pm 
+++ /home/shmem/comp/perl/lib/MojoX/Session.pm
@@ -81,7 +81,7 @@
 
 sub flush {
     my $self = shift;
-
+warn "LAST ORDERS. FASTEN SEAT BELTS...\n";
     return unless $self->sid && !$self->_is_flushed;
 
     if ($self->is_expired && $self->_is_stored) {