my $filename = '6U9D.pdb.txt';
open (IN, $filename)
    or die "Couldn't open '$filename': $!";