Select Code to Download

if ($param{submit} && $param{day} >0 && $param{day} <=  $leapdays{$tmp
+mon}&& $param{month} > 0 && $param{month} <= 12 && $param{year
} > 1920 ) {
...
        #$mysql->Insert("events",$id,$param{day},$param{month},$param{
+year},$param{subject},$param{description},$username);
        $mysql->Insert("events",$param{day},$param{month},$param{year}
+,$param{subject},$param{description},NULL);
        print "Record Inserterd";

sub Insert {
        my $self = shift;
...

        #return $self;
}