Help for this page

Select Code to Download

Select or download this

open (DATA, $data);
    my @secdata = <DATA>;
    my ($str) = join "",@secdata;
close(DATA);

Select or download this
```
my $str = read_file $data;
```