2bx2.dssp
3cob.dssp
1nwn.dssp

##</code><code>##

use strict; 
use warnings;
use Bio::Structure::SecStr::DSSP::Res;

my @filenames;
for my $filename (@filenames)
{
open my $dsspIn, '<', $filename or die "Unable to open $filename: $!\n";

#Create a new DSSP object
my $dssp_obj = Bio::Structure::SecStr::DSSP::Res->new ('-file'=> $dsspIn);

....
close dsspIn;
}