sub new {
    my $class = shift;
    my $self = {};     # create an anonymous hash
    $self->{link_file} = undef;