#!/usr/bin/perl -w use strict; sub BUFFER { 2048 } print BUFFER, "\n"; #### #!/usr/bin/perl -w use strict; sub BUFFER () { 2048 } print BUFFER, "\n";