- or download this
open my $fhout, '>', "./test_out.file" or die "$!";
- or download this
open (my $fhout, '>', "./test_out.file") || die "$!";
- or download this
open (my $fhout, '>', ("./test_out.file" || die "$!"));
- or download this
my ($fhout) = @_;
- or download this
my $fhout = shift;