#!/usr/bin/perl

use strict;
use warnings;

use APR::PerlIO;
use APR::Pool;

our $hndl;
our $pool = new APR::Pool;

warn "### $APR::PerlIO::VERSION\n";

die "*** Unable to open file: $! $@\n"
    unless open $hndl, " >> :APR", "test.txt", $pool;

my  @now = localtime;

printf $hndl "%04d-%02d-%02d %02d:%02d:%02d Testing, 1, 2, 3\n",
             $now[5] + 1900, $now[4] + 1,
             reverse @now[0..3];

close $hndl;