I think that you were looking for something like WWW::PDB. This seems easier:

#!/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>;
[download]