#!/usr/bin/perl -w
sub handle_error
{
    if (open LOG, ">/dev/null") {
        carpout(LOG);
    }
}
print "hello world.\n";