Select Code to Download

#!/bin/perl
use strict;
...

open(EXTR, ">meep.csv") or die $!;
$parser->parsefile( "meep.xlf");

#!/bin/perl
use strict;
...
open(my $EXTR, ">meep.csv") or die $!;
$parser->parsefile( "meep.xlf", {FH => $EXTR});
close $EXTR;