Stuck in the put function when using Net::FTP

Hi,

Some time the perl script stuck in the put function when I use Net::FTP
module. It will never come out of this function.  Most time it works
fine.

Is there any easy way to solve this problem?

I am thinking about to use $SIG(ALRM) to check the status of ftp
connection and reconnect it if it is stuck.  Does this will help to get
out of put function?

I am using libnet v 1.0703 under Solaris v2.6 with Perl v5.005

Thanks,

Jing