figlet()
{
    local que=$1
    local fu=timesofl

    if [ -n "$2" ]
    then
        local fu=$2
    fi;

    if [ -n "$que" ]
    then
        perl -I$HOME/path/to/installed/FIGlet.pm -MText::FIGlet -e 'print Text::FIGlet->new(-f=>$ARGV[0])->figify(-A=>$ARGV[1])' "$fu" "$que"
    fi;
}

##</code><code>##

#!/usr/bin/perl
use lib "...";  # probably not really needed.
use Text::FIGlet;

my $figlet = Text::FIGlet->new(-f => $ARGV[1] || 'timesofl');
print $figlet->figify(-A => shift);