eval {$ftp->get("that.file")};
if ($@ =~ /Timeout/)
{
   # catching code goes here
}