Atributos e identidad de un objeto (con programación estructura)

Una manera de implementar los atributos de un objeto en Perl sería muy similar a los registros de la sección 3.2.4 y se podrían generar así:

my $pdb1 = constructor_PDB('1lfu',3,'1lfu.pdb');

sub constructor_PDB  # un método que genera nuevos objetos se llama constructor 
{
	# valores de los atributos como parámetros
	my($nombre,$n_de_cadenas,$archivoPDB) = @_;

	my $rPDB = {
		'nombre' => $nombre,
		'ncadenas' => $n_de_cadenas,
		'archivo' => $archivoPDB,
		'coordenadas' => ()
	};
	return $rPDB;   # devuelve una referencia al objeto
}