use Log::CJournalD qw(:all) ;

my ($handle, $cursor, $data ) ;

# Logging
sd_journal_print( 1, "%s", "data" ) ;
sd_journal_sendv( {PRIORITY=>1, MESSAGE => "sd_journal_sendv 1", KEY2 => "value2"} ) ,

# Log retrieval (requires special priviledges)
sd_journal_open( \$handle, SD_JOURNAL_LOCAL_ONLY)
    and carp ( "cannot open journal" ) ;

sd_journal_next ( $handle )
    or carp ( "cannot seek journal handle" ) ;

sd_journal_enumerate_data( $handle, \$data )
    or carp ( "cannot enumerate" ) ;

sd_journal_getv ( $handle, \$data )
    and carp ( "cannot getv" ) ;

Journald access c-style. Provides structured logging via sendv, log opening, seeking + retrieval.