Métodos de un objeto (con programación estructura)

Los métodos de un objeto permiten manipular sus atributos desde el exterior, sin necesariamente conocer las tripas del objeto:

leer_archivoPDB($pdb1,0);

sub leer_archivoPDB   
{
	# parámetros
	my($rPDB,$comprimido) = @_;
	
	# variables locales
	my $res_leidos = 0;
   
	if($comprimido == 1)
	{
		open(PDB,"zcat $rPDB->{'archivo'} |") || warn "no puedo leer zcat $rPDB->{'archivo'}\n";
		# rellena $rPDB->{'coordenadas'}
		# $res_leidos++;
		close(PDB);
	}
	else
	{
		open(PDB,"$rPDB->{'archivo'}") || warn "no puedo leer $rPDB->{'archivo'}\n";
		# rellena $rPDB->{'coordenadas'}
		# $res_leidos++;
		close(PDB);
	}
	
	return $res_leidos; 
}