Select Code to Download

sub centerlines {
 my $width = shift;
 print map { ' ' x int($width/2 - length($_)/2) . $_ } @_;
}
centerlines($width, 'These', 'lines', 'are', 'centered');

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$