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} ;
}