Help for this page

Select Code to Download

Select or download this

{
open (FILE,"<$input_file") or die "Couldn't open file $input_file, $!\
+n";
...
close FILE;
}
@data = split (/\n{2,}/,$slurp);