#!/usr/bin/perl

use warnings;
use strict;

use Tie::File;

my @a;
my $i;

tie @a, 'Tie::File', "D:\\Versuch\\demo.dat";
foreach $i (@a) {
    print "$i\n";
}
untie @a;