package http_link;
sub new {
	my $classname = shift;
	my $hash_ref = {};	      # neues Hash anlegen
	$hash_ref->{id} = shift;   # init
	$hash_ref->{link} = shift;
	
	bless $hash_ref,$classname; # Objekt mit Klasse verknüpfen
	return $hash_ref;
}
	
sub get_id{
	my $self = shift;
	return  $self->{id} ;
}