if ($@) { # something bad occures
 if ($@ =~ /TIME OUT/) {
   # do something regarding timeout
 } else {
   # do something with other reason,
   # such as failure on open
 }
 # stop here
}

# continue here