perl script.pl 2>>error.log

##</code><code>##

BEGIN {
 open STDERR,">>","error.log" or die "Can't open error.log: $!";
}