open my $in, '<', "file" or die "$!";  #open worked
while (my $line = <$in>){print $line;}  #just a few characters print