open (DSSPIN, <>) || die $!;
my $dssp_obj = new Bio::Structure::SecStr::DSSP::Res('-file'=>DSSPIN);