Select Code to Download

    use strict;
    use warnings;
...
    $par_fh->autoflush(1);
}

#no warnings 'once';

my $logfile = "test.log";
my $log_fh = "LOG_FH";
...
    $par_fh_2->autoflush(1);
}