perl -Mthreads -le 1