undef $o;
untie @file;
# or
tie my @file, 'Tie::File', 'file.name';
(tied @file)->flock;
# ....
untie @file;