#!/usr/bin/perl

use strict;
use warnings;

use POSIX;

foreach my $ch ('a' .. 'z', '%', '+') {
    my $lc = strftime "%\l$ch", localtime;
    my $uc = strftime "%\u$ch", localtime;

    for ($lc, $uc) {
        s/\n/\\n/g;
        s/\t/\\t/g;
    }

    printf "%%%s  %25s   %25s\n", lc $ch, $lc, $uc;
}
__END__