#!/usr/bin/perl
use CGI;
$query = new CGI;
$dire = $query->param("dire");
print $query->header ( );

$live = "/home/client/www/site";

print "$live<a href=\"./index.cgi?dire=$dire\">$dire</a>";

print "<br><br>"

#then my readdir which reads $live$dire and prints out the contents