Select Code to Download

If an uncaught exception results in interpreter exit, the exit code is
+ determined from the values of $! and $?

#!/usr/bin/perl
use strict;
...
$ cat out.txt
blocka
/main/sub/a/bg/adee/swarfrw/ewqsx/fewaxr/akeil/awedr/date/file