#!/usr/bin/perl -w
use strict;
use warnings;
use Bio::Structure::SecStr::DSSP::Res;

open (DSSPIN, "$ARGV[0]") || die $!;
#Create a new DSSP object
my $dssp_obj = new Bio::Structure::SecStr::DSSP::Res('-file'=>DSSPIN);

# EXAMPLE OF HOW THE OBJECT IS NORMALLY DECLARED
#my $dssp_obj = new Bio::Structure::SecStr::DSSP::Res('-file'=>'3bit.dssp'); 

#Get PDB ID and Compound representation for each DSSP file
my $pdb_id = $dssp_obj->pdbID();
print "Analysis of PDB:: ". $pdb_id. "\n";
my $cmpd = $dssp_obj->pdbCompound();
print "Representing:: ". $cmpd. "\n";

etc...

##</code><code>##

<some loop to read each dssp filename>
dssp_output.pl filename.dssp
<end loop>

##</code><code>##

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

##</code><code>##

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

Error: Global system @data_from_files, $data_from_files requires explicit package name