#!/usr/bin/perl

use strict;
use warnings;
use WWW::PDB qw(:all);

WWW::PDB->cache('/user/Desktop/mech');

my $fh = get_structure('2cu3');
print while <$fh>;