#!/usr/bin/perl
use strict;

eval 
{
    [... do stuff ...]
} ; # End eval{} error trap set REQUIRES a semicolon

if ($@) 
{
    my $dsperr = $@;
    my $logsse = time;
    open ERRLOG, '>>', 'myerror.log';
    print ERRLOG "$logsse $dsperr\n";
    close ERRLOG;
}

exit;