<: my $db = eval { require Shiar_Sheet::DB; Shiar_Sheet::DB->connect; } or Abort('Database error', 501, $@); $db->insert(report => { agent => $ENV{HTTP_USER_AGENT}, page => $ENV{HTTP_REFERER}, address => $ENV{REMOTE_ADDR}, history => (map {$_ ? $PLP::read->($_) : undef} $ENV{CONTENT_LENGTH}), });