# log the whole process
BEGIN
{
use CGI::Carp qw(carpout);
my $errorlog = "/var/logs/log.txt";
open(LOG, ">$errorlog") or die("Unable to open $errorlog: $!\n");
print LOG "Errors:\n";
carpout(*LOG);
}