Select Code to Download

#! perl -slw
use strict;
...
    threads->create( \&thread, fileno( $fh ) )->detach;
    printf 'paused:';<STDIN>;
}