Select Code to Download

$down="false";
open (FH, $log) || $down = "true";

use vars qw/$down/;

...
  ...do some stuff....
 $down = "true";
}