Perl / CGI Skript mit Wertübergabe

[noname]

hi,

#!/usr/bin/perl -w

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

my $q = new CGI;

my @link = split /=/, $ENV{'QUERY_STRING'};

print "<a href="$link[1]">afa</a>";

ob das jetzt funktioniert weiss ich nicht, ich habe es nicht getestet, vielleicht ist ja irgendwo ein schreibfehler drin, sollte aber gehen.