Help for this page

Select Code to Download


  1. or download this
    my $user_input = <STDIN>;
    
  2. or download this
    my $stdin = new IO::Handle;
       $stdin->fdopen( fileno( STDIN ), "r" ) || die "Cannot open STDIN";
    while ( my $char = $stdin->getc() ) {
    }