Thank you.Thank you. Thank you. Thank you.
Now what I need is a redirect link. I was using.

    for $line (<FILE>) {
        print $line;
    }
print $data{
[download]

but it will not work for redirecting to other cgi files