#Output warnings to warnings.log
BEGIN{
open(STDERR, "warnings.log")||die "Can't open warning.log: $!";
}