my $font = Text::FIGlet->new(-f=>"block", -d=>"/usr/share/figlet");
print $font->figify(-A=>"Hi");

##</code><code>##

              _|    _|  _|  _|    _|      _|_|_|_|  _|  _|    _|  _|  _|    _|  _| 

##</code><code>##

figlet -f block Hi
              
_|    _|  _|  
_|    _|      
_|_|_|_|  _|  
_|    _|  _|  
_|    _|  _|