use Fcntl ':flock';

if ( flock( $filename, LOCK_EX | LOCK_NB ) ) {
    # File is unlocked
    flock( $filename, LOCK_UN );
}
else {
    # File is locked.
}