use vars qw/$down/; $down="false"; open (FH, $log) || &woops($host); if ($down eq "false") { ....send tail of log file... } else { ....send "server is down" } sub woops { ...do some stuff.... $down = "true"; }