Help for this page
#!/usr/bin/perl -w ... sub BUFFER { 2048 } print BUFFER, "\n";
#!/usr/bin/perl -w ... sub BUFFER () { 2048 } print BUFFER, "\n";