$ perl -Mthreads -le \
  > 'sub f :locked {print $_[0]; sleep 2; print $_[0];}
  > threads->create(\&f, $_) for @ARGV;
  > $_->join() for threads->list()' foo bar