#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();
my %params = $cgi->Vars();

print $cgi->header();

if($params{action} == 1){
  # trage Link in die Datei ein
}
else{
  # zeige die Links an
}