open (FILE, $filename) or die "Can't open $filename: $!\n"; print $_ while (); close FILE;