Select Code to Download

BEGIN {
    use CGI::Carp qw(carpout);
...
    open LOG, '>>', '/home/xxx/yyy/test_error_log.log' or die "Unable 
+to open error log";
    carpout(\*LOG);
}