Select Code to Download

|| die "File not found";

|| die "Unable to open input file: $!";
# ... and ...
|| die "Unable to open output file: $!";

use strict;
use warnings;
...
    };
}   # $temp_out falls out of scope; temp file should be removed even i
+f the move call failed.
    # flock falls out of scope; lock is released on $target_file.

use strict;
use warnings;
...
        $line =~ s/foo/bar/;
    }
}   # $tied falls out of scope. File is closed, lock expires.