+if (open my $logo, '<', 'mascot.txt') {
+ # append logo lines to top usage lines
+ my @ll = split /\n/, readline $logo;
+ my @ul = split /\n/, $usage, @ll + 1;
+ # centered in empty space on the second (longest) line
+ my $pad = (78 - 1 + length($ul[1]) - length($ll[0])) >> 1;
+ $ul[$_] .= (' ' x ($pad - length($ul[$_]))) . $ll[$_] for 0..$#ll;
+ $usage = join "\n", @ul;
+}
+