sub {
 return unless defined $^S; # bail out if it's a parser error
 open my $log, ">/tmp/crash@{[time]}_$$.log";
 print $log @_;
}