perl -Mthreads 
-e"threads->create(sub{{eval{sleep rand 10;die time};$@ and print "$@";redo}})->join"

1271707092 at -e line 1.
1271707094 at -e line 1.
1271707100 at -e line 1.
1271707108 at -e line 1.
Terminating on signal SIGINT(2)