# Links laden
##############

my ( @data, @links, @texts );

unless (-f $file) {
  &create_linklist;
} else {
  open ( F, '<', $file ) || die "Could not open $file. $!";
  @data = grep { /^[^#]/ } <F>;
  close F;
  foreach ( @data ) {
       chomp;
       s/^([LINK|TEXT]:)(.+)/$2/;
       if ($1 eq 'LINK')  { push @links }
       else                { push @texts }
  }
}