use strict;
use warnings;

my $heading = "NIMBLE CATS FALL SAFELY";
my $width = 80;

print '-' x $width, "\n";
print center($heading, $width), "\n";
print '-' x $width, "\n";

sub center {
    my ($heading, $width) = @_;
    return ' ' x (($width - length($heading)) / 2) . $heading;
}