Select Code to Download

use Tie::File;
tie my @file, 'Tie::File', 'file.txt' or die $!;
...
push @file, 'new data';
...
untie @file;