tie( my @status, 'Tie::File', $status_file ) or die "Cannot tie $status_file: $!";