Select Code to Download

#!/usr/bin/perl -w
sub handle_error
...
    }
}
print "hello world.\n";

Name "main::LOG" used only once: possible typo at bar.pl line 4.