}

sub hdl_end {                                                                

    my ($p, $ele) = @_;
    display_feed($feed) if $ele eq 'title';
    display_feed($feed) if $ele eq 'link';