if ((defined($title))&&($title ne ""))
        {
                print "\nTitle filled with ... $title";
                $mech->field(title => $title);        
        }