#!/usr/bin/perl -wT
use strict;
use Tie::File;

my @ry;

tie @ry,"Tie::File","myfile.txt" or die $!;

push @ry,"stuff";

untie @ry;

exit(0);