табличка

use strict;
print "enter widht taht you want\n";
chomp(my $widht = );

print "Enter some lines, and press Cntrl+D\n";
chomp(my @lines = );

print "-" x $widht,"|\n";#control line for debug
my $format = "%${widht}s|\n" x @lines;
printf $format, @lines;