redirect von quicktime (.mov) url

[Rolf Rost]

hi,

print "Status: 302 Moved Temporarily\nLocation: $url\n\n";

Machs besser so:

Redirection

sub redir{
        my $url = shift;
        print "Status: 302 Moved\n";
        print "location: $url\n\n";
        return;
}

--roro