$ cat carpout.pl; perl carpout.pl
#!/usr/bin/perl -w
use strict;
sub carpout(*);
sub handle_error
{
    if (open LOG, ">/dev/null") {
        carpout(LOG);
    }
}
print "hello world.\n";
Name "main::LOG" used only once: possible typo at carpout.pl line 6.
hello world.