### ORIGINAL
$ perl /tmp/t3.pl 
fileconsole!
pause
^CDied at /tmp/t3.pl line 20.
141 $

### ERSETZUNG DURCH EINE LOGDATEI (siehe Code oben)
$ perl /tmp/t3.pl ; cat /tmp/log.txt 
^CDied at /tmp/t3.pl line 21.
fileconsole!
pause
Caught a control c!
close logfile
0 $