my $user_input = <STDIN>;

##</code><code>##

my $stdin = new IO::Handle;
   $stdin->fdopen( fileno( STDIN ), "r" ) || die "Cannot open STDIN";
while ( my $char = $stdin->getc() ) {
}