open(my $fh,">>",$linkfile) or die $!;
print $fh $url,"\n",$linktext,"\n";
close $fh or die $!;