Select Code to Download

use strict; use warnings; use feature 'say';
use Time::HiRes qw/ time usleep /;
...
}

__END__

$ perl shared.pl

...
16648 1491411785.903151 write: 19
16648 1491411785.913714 write: 20
16650 1491411785.914756 READ: 20