Ok guys i think i have found one solution to my problem :D

i called my own scribt back again. i have done it for only i button but it seems to be working :D

the link http://www.cgi101.com/learn/ given by toolic helped me, thanks.

so any other solutions apart from this one??

#!/usr/bin/perl -w 

use CGI qw(:all) ;

my $today;
my $thismonth;
my $thisyear;


chomp($today = `date +"%-d"`);
chomp($thismonth = `date +"%-m"`);
chomp($thisyear = `date +"%Y"`);
my $cal;
my $dir;

$cgi = CGI->new;
$dir=$cgi->param("dir");
if($cgi->param("today") && $cgi->param("thismonth") && $cgi->param("th
+isyear"))
{
            if($dir eq "back")
            {
                $today=$cgi->param("today");
                $today=$today-1;
            }    
}

print $cgi->header,$cgi->start_html("$today.$thismonth.$thisyear");
    
print<<HTML;
<table border=1>
<tr>
    <td><form name="input" action="date.cgi" method="POST">
        <input type="hidden" name="today" value="$today">
        <input type="hidden" name="thismonth" value="$thismonth">
        <input type="hidden" name="thisyear" value="$thisyear">
        <input type="hidden" name="dir" value="back">
        <input type="submit" value="Yesterday"></td>
        </form>
    <td>$today</td>
    <td>$thismonth</td>
    <td>$thisyear</td>
    <td><button type="button">Tomorrow</td>
    <td><button type="button">Set Title</td>
</tr>
</table>
HTML
print $cgi->end_html;
[download]