what about a simple:

print "Location: http://yourdomain.com/~JohnDoe/index.html\n\n";

??? is that what you want?

well, best regards!

#!/jpsama/bin/perl -w
$tks = `mount`;
$jpsama = $! if $!;
print $jpsama;