#!/usr/bin/perl
use strict;
use warnings;
use Text::Banner;

my $text = $ARGV[0] || "Just another Perl hacker,";
my $b = Text::Banner->new;

my @line = split /\n/, $text;
for (@line) {
    $_ = substr($_, 0, 10);
    $b->set($_);
    $b->fill('#');
    print $b->get, "\n";
}