perl -Mthreads -E"AUTOLOAD{ &{ $_[0] } }; async{ fred(); }->join; say 'done'"