- or download this
process($data_ref, \@set_up, $template, $fd_out);
sub process
...
# ...
}
}
- or download this
my $fd_out;
open($fd_out, $what_file);
while (<$fd_out>) { # ... }
- or download this
my $fd_out = IO::File->new($what_file, 'r');
while (<$fd_out>) { # ... }