# ex_06-4

# Learning Perl on Win32 Systems, Exercise 6.4



print "Field width: ";

chomp($width = <STDIN>);

print "List of strings:\n";

chomp(@strings = <STDIN>);

foreach (@strings) {

  printf "%${width}s\n", $_;

}