my $lock_file;
END {
    unlink($lock_file) if defined($lock_file);
}
...