Perl | Could not dupe : Bad file number

Yesterday I encountered an issue while running the script which does ssh to a remote server using the perl library Net:SSH::Perl. After succesfully perform ssh->login($user) it was stopping the operation while I am trying to do ssh->cmd("/usr/sbin/ping $ipaddress).
After several investigation I found out that after trying to do the ssh->new($host), I am writing close(STDIN). The OS is sun solaris v4. This close of STDIN is creating the problem. I am now using the close STDIN down the line and everything seems to be working perfectly fine now.