Select Code to Download

sub get_stdin_w_timeout {
  ######!/usr/bin/perl
...

}

    $plibMsg=&get_stdin_w_timeout(5);#<STDIN>;