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

tie my @contents, 'Tie::File', $ARGV[0], mode => O_RDWR;
# Assumes you pass the file name on the command line