Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
my $lines = shift || 10;
...
print @buf;

exit 0;