ap

use v5.10;
use re 'eval';

my @a = (
    [ 'aaa', sub { say 'Apple' } ],
    [ 'bbb', sub { say 'Banana' } ],
    [ 'ccc', sub { say 'Carrot' } ],
);

my @r = map {

ap

#!/bin/bash
# Usage: license [fullname]
# Prints an MIT license appropriate for totin' around.
#
# $ license > COPYING
# $ license 'Joe Random' > COPYING
#!/bin/sh
FULLNAME=${1:-$(getent passwd $(id -u) | cut -d: -f5 | cut -d, -f1)}
cat << "."
Copyright (c) `date +%Y` $FULLNAME