sub display {
    my $self = shift;

    my $link_file = $self->{link_file};
    my $adate     = $self->{adate};
    # etc.
}