use Fcntl 'O_RDWR';
use Tie::File;

my $file = "./filename.ext";
tie (my @lines, 'Tie::File', $file, mode => O_RDWR,