Help for this page

Select Code to Download


  1. or download this
    figlet()
{
...
        perl -I$HOME/path/to/installed/FIGlet.pm -MText::FIGlet -e 'pr
+int Text::FIGlet->new(-f=>$ARGV[0])->figify(-A=>$ARGV[1])' "$fu" "$qu
+e"
    fi;
}
  2. or download this
    #!/usr/bin/perl
use lib "...";  # probably not really needed.
...

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