#/usr/bin/perl
#
use strict;
use warnings;

my $file = "file.txt";
my @lines;

tie @lines, 'Tie::File', $file || die $!;
open ( IN, "$file" ) || die "can't read file $!";

#See if tie worked
foreach ( @lines ) {
	print "$_\n";	# prints nothing
}

print "$#lines\n"; 	# prints -1

while ( <IN> ) {
	print "$_\n";	#prints out each line
}