sub validate
{
    my ($p,$s_no) = @_;
    my $s = 0;
    for ($s; $s<=$s_no; $s++)
    {
        my $command = $CFG::CFG[$s]->{'CMD'};
        if ($command =~ /cd /)
        {
            $$p = $$p - 1;
        }
    }
}